AD*A075  010  APPLIED  ELECTRONIC  RESEARCH  CORP  GAINESVILLE  FL  F/6  20/12 

TVO-OIMENSIONAL  AVALANCHE  BREAKDOWN  IN  PT-SI  SCHOTTKY  BARRIER  D--ETC(U) 
JUL  79  D  P  KENNEDY  F19628-77-C-0220 

NL 


UNCLASSIFIED 


RADC-TR-79-189 


AD  A075^1  0 


r 


RA0C-n-79-IS9 

Rnol  T«chnicol  Rapoft 
Jviy  1979 


TWO-DIMENSIONAL  AVALANCHE 
BREAKDOWN  IN  Pt-Si  SCHOTTKY 
BARRIER  DIODES 

Applied  Electronic  Reseorch  Corporation 


David  P.  Kennedy 


ROME  AIR  DEVELOPMENT  CENTER 

Air  Force  Systems  Command 

GrHfiss  Air  Force  Bose,  Now  York  13441 


79  10  12  006 


This  rsport  h**  been  reviewed  by  the  RADC  Information  Office  (01) 
and  is  releasable  to  the  National  Technical  Information  Service  (NTIS). 
At  NTIS  It  will  be  releasable  to  the  general  public.  Including  foreign 
nations. 

RADC-TR-79-189  has  been  reviewed  and  Is  approved  for  publication. 


APPROVED: 


SVEN  A.  ROOSILD 
Project  Engineer 


APPROVED: 


ROBERT  N.  BARRETT 

Director,  Solid  State  Sciences  Division 


FOR  THE  COMMANDER: 


JOHN  P.  HUSS 

Acting  Chief,  Plans  Office 


If  your  address  has  changed  or  if  you  wish  to  be  removed  from  the  RADC 
mailing  list,  or  If  the  addressee  Is  no  longer  employed  by  your  organiza¬ 
tion,  please  notify  RADC  (ESE),  Hanscom  AFB  MA  01731.  This  will  assist 
us  In  maintaining  a  current  mailing  list. 

Do  not  return  this  copy.  Retain  or  deatroy. 


DISCLAIMER  NOTICE 


THIS  DOCUMENT  IS  BEST  QUALITY 
PRACTICABLE.  THE  COPY  FURNISHED 
TO  DDC  CONTAINED  A  SIGNIFICANT 
NUMBER  OF  PAGES  WHICH  DO  NOT 
REPRODUCE  LEGIBLY. 


UNCLASSIFIED _ 

( //Report documentation  page  I  BErOREV^PLETSG*TORM 

4.-MA«iy  ‘~  la.  OOVT  ACCCMION  no.  >  WEClUeNT’t  cataloo  numbcr 

RADCHT^79-I89  / 


U.  ¥»»«.«  tiitKIlM  > 

,TWO-J}IMENSIONAL  AVALANCHE  BREAKDOWN  IN  Pt-Sl  /' 
SCHOTTKY  BARRIEf  DIODES. _ _ f 


f.,iTPE  Al'HtPOIIT  L  pcnioo  cpvenEO 
Final  Tecnnical 


•  f  cnronMiNO  of^c.  ncPOfiT  numsch 


David  P. /Kennedy 


LI  contract  OM  OKANT  NUMBEnraJ 


■  [)  F19628-77-C-O220/. 


*  PEKFOnMINO  OHOANIIATIOM  NAME  AND  AOONESt 

Applied  Electronic  Research  Corp. 

2227  N.  W.  16th  Avenue 
Gainesville  FL  32605 

II  contnolcing  office  name  and  aodrem 
Deputy  for  Electronic  Technology  (RADC/ESE) 
Hanscom  AFB  MA  01731 


10.  fnognam  element,  project,  task 
AREA  A  WORK  UNITjU^MaCRS 

61102F  ^/T'-r  f  I 

2305J125  ^  -‘ZJ 

«•.-  NaMoa¥«*ys 

//^_J^J»79  ' 

13.  number  of  pages 
146 


14  monitoring  agency  name  a  AODRESV^f  ContecUing  OIUc»)  IS.  SECURITY  CLASS,  (of  tht»  rmport) 

Same  y  .  1  UNCLASSIFIED 


lit.  Distribution  statement  (ot  tbia  Kmp^tt) 


1S«  DECLASSIFICATION  OOWNGRABING 
^/^SCHEDULE 


Approved  for  public  release;  distribution  unlimited. 


1 17.  DISTRIBUTION  STATEMENT  (of  thp  PbPtfmet  ttffd  /n  Block  20,  il  dlllmront  from  Ropoft) 


1$.  SU^RLEMEnTARY  NOTES 

RADC  Project  Engineer:  Sven  A.  Rooslld  (RADC/ESE) 


If  KEY  WORDS  t'Conrinu#  on  rovotoo  oldo  II  noeocomry  and  Idantity  biF  hicek  numbor) 

Schottky  barriers 

Breakdown 

Multiplication 


IG  ABSTRAC\/Con(lnuo  on  r««'«r«o  ofdo  11  nacaaamrr  and  Idantlly  by  block  numbor) 

Under  Coi^racc  No.  F19628-77-C-0220  Applied  Electronic  Research  Corporation 
undertook  the  development  of  a  two-dimensional  computer  model ^ for  calculating 
avalanche  breakdoim  In  a  Pt-Sl  Schottky  barrier  diode.  A  principal  objective 
of  this  program  was  to  develop  such  a  computer  program,  and  stake  the  source- 
code  and  operational  data  available  to  other  workers  In  the  field.  Further, 
as  a  means  to  verify  the  applicability  of  this  program  Junction,  breakdown 
computations  were  to  be  undertaken  throughout  a  wide  range  of  physical  parame¬ 
ters  and  ambient  tesiperatures. 


00  wa 


UNCLASSIFIED 

St CURITY  CLASSlFfCATlOH  OF  THIS  PAGE  rirh^n  Oaf#  Bntorod) 


'j(v 


9  i  ,'  / 


Evaluation 


The  Final  Report  on  Two-Dimensional  Avalanche  Breakdown  in  Pt-Si 
Schottky  Barrier  Diodes  represents  a  half-man  year  effort  over  12 
months  to  calculate  numerically  the  breakdown  characteristics  of  Schottky 
barrier  diodes  on  p-type  silicon.  The  results  clearly  indicate  that 
avalanche  breakdown  is  not  the  appropriate  mechanism  to  explain  the 
experimentally  observed  reverse  characteristics  of  these  diodes;  a  far 
closer  agreement  is  achieved  with  calculations  based  on  a  one  carrier 
multiplication  process.  Preliminary  considerations  also  indicate  that 
it  is  inappropriate  to  apply  Schottky  barriers  on  n-type  theoretical 
treatment  to  Schottky  barrier  on  p-type  diodes.  In  the  former  case 
tunneling  may  be  an  important  leakage  component.  The  findings  of  this 
contract  have  important  applications  to  Schottky  barrier  based  3-5  micro¬ 
meter  infrared  detector  staring  arrays  as  well  as  low  temperature 
electronics. 


EVTIN  A.  ROOSILD 
Project  Engineer 


1 


Summary  and  Major  Results 


A  two-dimensional  computer  model  has  been  developed  for  avalanche 
breakdown  in  a  Pt-Si  Schottky  barrier  diode,  assuming  either  p-type  or 
n-type  semiconductor  material.  After  completing  this  model,  comparisons 
between  experiment  and  theory  suggested  a  need  to  undertake  model  modifi¬ 
cations;  assuming  carrier  multiplication  processes  other  than  a  classical 
Townsend  avalanche  processes.  Those  modifications  were  undertaken  and 
completed.  As  a  consequence,  two  different  computer  models  are  being  made 
available:  first,  a  model  assuming  classical  Townsend  avalanche  breakdown 
and,  second,  a  model  assuming  one-carrier  multiplication  within  a  pt-Si 
space-charge  layer . 

Both  of  these  computet  programs  utilize  finite-difference  methods 
within  a  two-dimensional  grid  containing  non-equal  spacing.  Thereby,  sub¬ 
stantial  computational  accuracy  is  obtained  throughout  regions  of  the 
structure  containing  large  values  of  electric  field  and  a  significant  level 
of  carrier  multiplication.  User  options  permit  adequate  variation  of  the 
geometrical  and  physical  parameters  in  this  model  to  make  it  valuable  tool 
for  fundamental  studies  associated  with  two-dimensional  Schottky  barrier 
opetation. 

Computational  techniques  have  been  employed  that  appear  to  reduce 
overall  computation  time  to  a  satisfactory  level.  Specifically,  these 
computer  programs  are  designed  to  undertake  a  search  for  the  carrier 
trajectory  producing  a  maximum  of  carrier  multiplication,  at  a  given  applied 
voltage;  in  contrast  with  undertaking  a  calculation  of  all  carrier  trajec¬ 
tories  and  their  respective  levels  of  carrier  multiplication.  Further,  the 
system  of  finite  difference  equations  generated  during  a  given  two-dimen¬ 
sional  solution  of  Poisson's  equation  are  solved  using  efficient  space- 
matrix  techniques.  Stone's  method  is  applied  in  an  iterative  loop  for 
calculating  the  potential  distribution  throughout  the  space-charge  layer 
of  a  Pt-Si  Schottky  barrier  diode. 

Avalanche  breakdown  calculations  were  undertaken  for  physical  param¬ 
eters  typical  of  devices  being  fabricated  in  laboratory  experiments.  Im¬ 
portant  differences  were  observed  between  experiment  and  theory:  the 


calculated  breakdown  voltage  was  higher  than  observed  in  the  laboratory, 
and  the  calculated  avalanche  breakdown  process  was  substantially  more 
abrupt.  It  was  these  results  that  suggested  a  change  in  the  model  for 
carrier  multiplication — to  a  one-carrier  process.  This  model  modification 
did,  indeed,  produce  a  soft  breakdown  characteristic  and  better  agreement 
with  experiment. 

A  one-carrier  multiplication  process  yields  a  reverse  current  that 
increases  nearly  exponentially  with  voltage.  It  was  found  that  some  labor¬ 
atory  devices  do  indeed  exhibit  an  exponential  current/voltage  relation 
throughout  a  substantial  range  of  reverse  current.  Unfortunately,  little 
inference  can  be  drawn  from  this  observation;  theory  also  predicts  that 
carrier  tunneling  at  the  metal/si  interface  would  exhibit  a  similar  current- 
voltage  relation.  For  this  reason  it  is  suggested  that  the  reverse  current 
observed  in  a  p-type  Pt-Si  diode  does  not  exhibit  those  characteristics 
expected  from  an  avalanche  breakdown  process.  Instead,  it  is  suggested 
that  this  reverse  current  could  arise  from  either  one-carrier  multiplica¬ 
tion  within  the  space-charge  layer  or  from  carrier  tunneling  at  the  metal- 
Si  interface. 
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CHAPTER  I 


A  Two-Dimensional  Computer  Model  for  Avalanche  Breakdown  in  Schottky 
Barrier  Diodes 


1 . 0  Introduction 

Schottky  barriers  formed  with  metal-silicide  compounds  in  contact 

with  silicon  are  known,  under  some  conditions,  to  exhibit  "soft"  reverse 

breakdown  characteristics.  That  is  to  say  the  reverse  current  is  observed 

to  increase  gradually,  rather  than  abruptly,  as  the  barrier  is  biased  in 

the  reverse  direction.  This  phenomenon  is  observed,  for  example,  with 

platinum-silicide  Schottky  barriers,  using  p-type  silicon  and  operated  at 

o 

liquid  nitrogen  temperature  (77  K) . 

Possible  causes  for  this  soft  breakdown  phenomenon  are:  First,  unlike 
barriers  formed  by  the  juncture  of  a  pure  metal  (such  as  gold)  in  contact 
with  silicon,  the  kinetics  of  the  growth  of  a  metal-silicide  compound  pro¬ 
duces  a  metal-silicide  region  which  penetrates  into  the  silicon  substrate 
in  a  manner  similar  to  a  shallow  diffusion  (1).  Thus,  two-dimensional 
mechanisms  e.tist,  wherein  high  electric  fields  may  develop  at  the  periphery 
of  the  barrier  causing  breakdown  to  occur,  due  to  avalanche  multiplication. 
Second,  mechanical  stress  at  the  interface  (2,  3)  can  enhance  this  break¬ 
down  phenomenon.  Third,  the  existence  of  surface  states  could  lead  to  en¬ 
hanced  breakdown.  Fourth,  quantum  mechanical  tunneling  of  carriers  through 
the  potential  barrier  formed  at  the  metal-silicide-silicon  interface  also 
represents  possible  cause  of  soft  breakdown. 

Work  performed  under  this  program  addressed  the  following  tasks: 

A.  — Develop  a  two-dimensional  computer  solution  for  Poisson's  equa¬ 

tion,  using  boundary  conditions  that  include  a  metal-silicide 
Schottky  barrier  on  p-type  silicon.  Further,  the  surface  of  this 
structure  is  bounded  by  a  thermal  oxide  containing  positive  charges, 
accounting  for  oxide-silicon  interface  states. 

B.  — Develop  a  two-dimensional  computer  solution  for  the  Townsend  car¬ 

rier  multiplication  process. 

C.  --Calculate  the  breakdown  voltage  of  a  Schottky  barrier  on  p-type 

silicon  as  a  function  of  the  following  parameters: 
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1.  Barrier  height  (from  0.25  ev  to  0.35  ev) 

2.  Resistivity  (from  1.0  to  100  chm  cm) 

-7  -9  2 

3.  Ox/Si  interface  charge  (10  to  10  coul:/cm  ) 

4.  Temperature  (77°K  to  300°K) 

D. — Extend  the  above  model  to  permit  the  treatment  of  N-type  silicon 
structures  of  the  same  type  described  in  A,  above. 

2 . 0  Description  of  the  Computer  Model 

The  computer  model  treats  either  p-type  or  N-type  substrate  materials, 
the  distinction  being  determined  through  a  "flag"  incorporated  in  the  input 
data  parameters  in  a  manner  to  be  clarified  in  a  later  subsection.  It  is 
capable  of  treating  arbitrary  doping  densities  and  temperatures,  also  spec¬ 
ified  as  input  parameters.  Considerable  flexibility  is  also  incorporated 
insofar  as  the  geometry  is  concerned. 

2.01  Basic  Geometry 

Figure  1  illustrates  the  geometry  assumed  in  this  computer  model.  A 
rectangular  region  is  defined,  containing  a  metal-silicide  region  of  con¬ 
stant  potential  (i.e.  it  is  treated  as  if  it  were  a  metal),  having  the 

value  (V^ .  +  V).  Here  .  is  the  "built-in"  equilibrium  potential  between 
bi  bi 

the  two  regions,  while  V  is  the  externally  applied  reverse  bias  voltage. 
This  metal-silicide  region  is  considered  to  be  a  rectangle,  with  dimen¬ 
sions  X  by  y  ,  with  a  circular  lower  right  corner.  The  overall  rectan- 
m  m 

gular  region  extends  to  the  right  of  and  below  the  metal-silicide  region 
by  1.25  depletion  widths;  thereby,  we  are  assured  that  all  boundaries  are 
located  in  charge-neutral  substrate  material.  Our  definition  of  a  "deple¬ 
tion  width"  hinges  upon  the  geometric  parameters  X^,  Y^,  and  r^.  In  the 
event  that  all  three  are  equal,  and  if  the  silicon-oxide  surface  charge 

Q  is  zero,  then  a  one-dimensional  depletion  solution  of  Poisson's  equa- 
ss 

tion  (in  cylindrical  coordinates)  is  used  to  establish  the  required  width. 
If,  instead,  any  of  these  conditions  are  violated  (thereby  destroying  the 
circular  symmetry)  planar  depletion  theory  is  applied  to  determine  the 
depletion  layer  width. 

The  left  border  (extending  below  the  metal-silicide  region)  is  treated 
as  a  symmetry  plane  along  which  the  normal  derivative  of  the  electrostatic 
potential  is  set  to  zero.  A  similar  boundary  is  used  for  the  upper  border 
(extending  to  the  right  of  Pt-Si  region) ,  except  that  the  normal  derivative 


!•’  i  c) .  1 

Goomptric.il  Model  used  in  this  Computer  Program 
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of  electrostatic  potential  bocowes  discontinuous  when  the  surface  ciiargo 

Q  is  nonzero, 
ss 

This  computer  model  deals  with  a  graded  lattice  ol  mesh  points  over- 
layed  upon  the  foreyoinq  rectangular  region.  Lattice  grading  is  automat¬ 
ically  implemented  by  a  part  of  this  computer  program.  Such  grading  has 
been  designed  to  make  the  density  of  mesh  fxaints  highest  in  the  vicinity 
of  the  metal-silicide-silicon  interface;  thereby  enhancing  the  accuracy 
of  the  finite-differences  algorithms  throughout  the  region  where  avalanche 
multiplication  occurs.  Figure  2  illustrates  such  a  graded  lattice  for  the 

case  where  X  =  Y  ,  using  an  array  of  31  by  31  mesh  points, 
mm 

2.02  Normalized  Variables 

With  a  few  exceptions  which  are  clearly  flagged  by  COMMENT  statements, 
this  computer  model  deals  with  trotmalized  variables.  These  variables  are 
defined  in  terms  of  the  following  normalization  parameters: 

1'  Distances  are  normalized  with  respect  to  the  depletion  width, 

=  V  2  E ( ^  t  V)  /  (qN^) ,  obtained  from  planar  depletion  theory. 

Here  N  is  the  ionized  acceptoi  density  at  temperature  T.  (This 
a 

is  replaced  by  the  ionized  donor  density  N^^,  when  modeling  N-type 
structures . ) 

2)  The  electrostatic  txntential  is  normalized  with  respect  to  the 

voltage  (V,  ,  +  V) . 
bi 

3)  Ml  charge  densities  are  normalized  with  respect  to  the  ionized 
acceptor  density  N^  or  donor  density  N^,  as  the  case  may  be. 

2.03  Determination  of  the  Electrostatic  Potential  \J/ ,  and  the  cotiesfHjnd- 
ing  Electric  Field  Com^iononts  ii  Ey. 

Expressed  in  terms  of  the  normalized  variables,  Poisson’s  equation 
becomes : 

=  211  t  n  -  p)  «  0  (1.01) 

where  ^  is  the  electrostatic  potential,  while  p  and  n  are  the  normalized 
hole  and  electron  densities,  respectively.  The  former,  in  dimcnsic nless 
variables,  is  related  to  \ft  through  the  Boltzmann  relationship: 
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p  «  exp(-qlV^^  +  VI  i|</kT) 


(1.02) 


which  implies  nondegenecate  doping  of  the  substrate  material.  The  latter 
is  similarly  expressed  by: 

n  =  exp(q[Vj^,  +  V)  t|;  -  V)/kT) ,  (1.03) 

where  is  the  normalized  intrinsic  density  at  temperature  T. 

Equations  (1.02)  and  (1.03)  are  based  upon  an  approximation  which 
ignores  gradients  in  the  hole  and  electron  quasi-Fermi  potentials;  both 
are  assumed  to  be  independent  of  X  and  Y  throughout  the  silicon  substrate 
region.  This  assumption,  widely  used  in  p-n  junction  breakdown  calcula¬ 
tions,  is  justified  by  the  success  of  such  calculations  in  predicting 
breakdown  voltages  in  excellent  agreement  with  experimental  results. 

When  the  reverse  bias  voltage  V  is  nonzero,  (1.03)  implies  that  the  elec¬ 
tron  quasi-Fermi  potential  differs  from  that  for  holes  by  the  value  V. 

2 

Note  that  (1.03)  correctly  gives  n  =  n^  exp(qVj^ ./kT)  at  the  metal-silicide- 

silicon  interface,  where  0  has  the  value  of  unity  in  normalized  units. 

2 

Further,  (1.02)  and  (1.03)  correctly  yield  the  mass  action  law,  pn  =  n^, 
under  equilibrium  conditions  (i.e.  when  V  =  0) . 

The  nonlinear  problem  posed  by  (1.01)  through  (1.03)  is  solved  iter¬ 
atively  by  the  computer  model.  An  initial  "guess"  is  first  obtained  for 
tjj ,  using  depletion  theory.  Equations  (1.02)  and  (1.03)  then  yield  ini¬ 
tial  estimates  for  p  and  n  at  each  lattice  mesh  point,  and  therefore  for 
the  right  hand  side  of  (1.01).  That  equation,  when  expressed  in  finite- 
difference  form  for  a  lattice  where  dimensions  are  m  by  n,  transforms  into 
m  times  n  coupled  linear  equations  for  *1/  at  each  mesh  point.  Expressed 
in  matrix  form,  the  resultant  matrix  is  very  sparse,  having  only  five  non¬ 
zero  diagonals.  Stone's  iterative  matrix  factorization  method  (4)  is  then 
utilized  to  obtain  a  revised  estimate  for  </>  at  each  of  the  mesh  points. 
Then  (1.02)  and  (1.03)  provide  corresponding  revised  estimates  for  p  and 
n.  This  procedure  is  applied  repetitively  until  self-consistent  solutions 
of  (2.01)  through  (2.03)  result.  The  implementation  of  this  iterative 
process  utilizes  Grummel's  algorithm  [5),  as  modified  by  Sutherland  (6], 
to  enhance  its  convergence. 

With  a  self-consistent  solution  of  Poisson's  equation  in  hand,  the 

normalized  electric  field  components  E  and  E  are  obtained  using  finite 

X  y 
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differences.  These  electric  field  components  are  stored  two  arrays,  tor 
subsequent  use  in  calculatinq  the  free  carrier  trajectories,  and  the  Town¬ 
send  multiplication  inteqrals. 

2.04  Determination  of  the  Two-Uiinonsional  Free  Carriei  Trajectories 
The  evaluation  of  the  Townsend  multiplication  inteqrals  requites 
knowledqe  of  the  curvilinear  trajectories  traced  out  by  the  charge  carriers 
involved  in  that  process.  Since  significant  multiplication  occurs  only  in 
regions  where  the  electric  field  (unnormal izeii)  exceeds  2  x  10^  volts/cm, 
the  effects  of  diffusion  forces  are  negligible  in  comparison  with  the 
electrostatic  forces  acting  upon  said  carriers.  Thus,  the  resultant  ve¬ 
locity  vector  V  is  colinear  with  the  electric  field  vector  K  (v  =  /a  E  in 
normalized  units,  with  the  normalized  carrier  mobility.)  As  a  result, 
the  paths  of  the  carriers  coincide  everywhere  with  electrostatic  flux 
lines,  regardless  of  the  numerical  value  of  ttroir  mobility.  Therefore,  in 
determining  those  paths,  it  is  sufficient  to  set  the  normalized  mobility 
equal  to  unity,  and  this  is  what  is  done  in  the  computer  model. 

The  two-dimensional  equations  of  motion  are  solved  using  a  subpro¬ 
gram  which  imp'lements  the  Adams-Bashforth-Moulton  predictor -corrector  algo¬ 
rithm  [IJ  with  time  of  flight  as  the  independent  variable.  Ttiis  subpro¬ 
gram  provides  tor  automatic  interval  halving  (and  doubling),  controlled 
by  monitoring  the  difference  between  the  predicted  and  corrected  values 
of  the  charge  carrier's  position  as  a  function  of  the  time  of  flight, 

2.05  Determination  of  ttie  Townsend  Mult ipl icat ion  Ratio  M 

Figure  J  depicts  a  region  in  which  two-dimensional  Townsend  multipli¬ 
cation  processes  are  in  progress.  Part  (a)  ot  that  figure  sketches  a  few 
curvilinear  streamlines,  and  singles  out  a  small  differential  volume  dV, 
where  "sidewalls"  coincide  witti  the  streamlines,  and  tl\e  ends  are  perpen¬ 
dicular  to  the  streamlines.  Although  such  streamlines  for  two-dimensional 
flow  may  converge  ot  diverge,  conservation  of  electric  current  leguiies 
that  the  net  current  entering  one  end  of  such  a  differential  vc^lume  must 
equal  the  net  current  leaving  it  through  the  other  end.  From  such  an  ai - 
gument  it  is  concluded  that  the  Townsend  multiplication  process  can  be 
treated  as  a  one-dimensional  problem  in  the  spacial  tcH'idinate  ^  ,  wliich 

is  singly  curvilinear  distance  measured  al<^ig  such  a  streamline.  Fart  (10 
of  the  figure  depicts  ttiis  onc-dimensional  problem  in  . 
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Fig.  3 

Stream  Linos  in  A  Semiconductor  Material 

a)  Two  Spatial  Dimensions 

b)  One-Dimension  Approximation 


Next  we  discuss  multiplication  in  terms  of  p-type  material,  with  the 
understanding  that  an  interchange  of  subscripts  p  and  n  will  make  the  re¬ 
sults  applicable  to  n-type  material  as  well,  We  assume  that  the  multipli¬ 
cation  process  is  initiated  by  the  injection  of  majority  holes  from  the 
metal-silicide  into  the  p-type  substrate  through  the  plane  f  =  0,  and 
that  the  current  due  to  minority  electrons  crossing  the  plane  ^  =  W  at 
the  other  edge  of  the  region  is  negligible. 

Let  (^)  and  {^)  be  the  Townsend  ionization  coefficients 
for  the  creation  of  electron-hole  pairs  (per  cm)  of  travel  of  electrons 
and  holes,  respectively.  Let  f )  and  1^  ( ^ )  be  the  local  components 
of  current  contributed  by  electrons  moving  to  the  left  and  holes  moving 
to  the  right.  From  Kirchhoff's  current  law,  their  sum  is  the  total  cur¬ 
rent  I,  which  is  independent  of  ^  .  In  the  differential  distance  d  f  , 
both  and  change,  due  the  creation  of  additional  electron-hole  pairs: 


“^^p  U)  =  (f)  =  [a.^  (^  )  (^)  +  Op  (f  )  Ip  (f  )]df  (1. 

Eliminating  Ip  by  invoking  Kirchhoff's  current  law,  the  following  differ¬ 
ential  equation  for  I  results: 

n 

dl 

^  '"n  ■  «p>  ^n  =  -  “p^ 

The  boundary  conditions  on  I^  are  shown  in  part  (b)  of  Figure  3,  where  M, 
the  multiplication  ratio,  is  defined  as: 


M  =  I/I  (0) 
P 


(1.06) 


The  solution  of  (1.05)  which  satisfies  those  boundary  conditions  leads  to 
the  following  relationship  for  M: 


t(1 .07) 


•'n 


( ^ )  exp 


I 


04) 
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Inspection  of  this  result  reveals  that  M  approaches  an  infinite  value 
as  the  integral  expression  in  the  denominator  approaches  unity.  Since 
the  ^-dependence  of  ^  and  ^  in  the  integrand  depends  ui>on  the  magni¬ 
tude  and  f -dependence  of  the  electric  field  E  which,  in  turn,  depends 
upon  the  applied  reverse  bias  voltage  V,  there  will  always  exist  a  value 
for  the  latter  which  will  cause  M  to  a(.>proach  infinite  values.  This  is 
the  condition  known  as  avalanche  breakdown,  and  the  value  of  V  which 
causes  it  is  the  reverse  bteakdown  voltage.  As  will  bo  seen  in  the  next 
chapter,  where  the  results  obtained  with  the  computer  model  are  discussed, 
this  breakdown  phenomenon  takes  on  a  "soft”  appearance  in  the  reverse  I-V 

characteristic  curve  only  when  the  radius  of  curvature  r  of  the  metal- 

m 

silicidc  region  is  very  small. 

The  derivation  leading  to  (1.07)  for  M  assumed  a  two-carrier  multi¬ 
plication  process  wherein  txith  electrons  and  holes  contribute  to  the  ava¬ 
lanche  mechanism.  For  silicon,  however,  experimental  data  for  the  ioni¬ 
zation  coefficients  (»  and  a  as  a  function  of  the  electric  field  E 


show  that  a  is  more  than  an  order  of  magnitude  less  than  a  ,  except 
for  very  large  electric  fields  18).  Thus,  electrons,  once  created  by 
impact  ionization,  are  much  more  effect ivo  than  holes  in  creating  addi¬ 
tional  electron-hole  pairs.  This  leads  one  to  question  whether  or  not  a 
"soft"  breakdown  characteristic  might  result  due  to  single  carrier  multi¬ 
plication,  wherein  only  electrons  are  responsible  for  the  creation  of  ad¬ 
ditional  electron-hole  pairs.  In  other  words,  what  would  result  if 
p  ^  ^  ^  were  assumed  to  be  zero? 

Inspection  of  (1.07)  shows  that  merely  setting  a  (f)  to  zero  will 

P 

not  work  in  this  particular  equation;  no  multiplication  is  obtained  (M  =  1). 

This  conclusion  arises  from  the  fact  that  when  n ^  (^)  =  0  (in  the  form 

of  I  (0)  in  the  boundary  conditions,  with  I  (w)  =  0)  only  holes  can  ini- 
P  tt 

tiate  the  avalanche  process.  Setting  ^ )  =  0  and  retaining  (w)  »  0, 

implies  than  an  electron-hole  pair  can  never  be  created,  and  since  only 
electrons  so  created  are  assumed  to  contribute  to  the  creation  of  addi¬ 
tional  electron-hole  pairs,  unity  values  of  M  are  the  natural  consequence. 
The  assumption  of  negligible  electron  current  at  ^  *  W  must  be  removed 
if  there  is  to  be  any  resultant  multiplication  when  (^)  «  0. 

To  explore  the  implications  of  single  carrier  multiplication  due  to 
electrons  alone,  insofar  as  "soft"  breakdown  is  concerned,  we  elected  to 


19 


treat  the  extreme  case  in  which  only  electrons  itiituto  the  aval<inch>»  ['roc- 
ess,  and  cause  the  creation  ot  ad<Utional  electron-hole  pairs.  This 
achieved  by  redefining  M  to  be; 


M  =•  I/l  (w) 
n 


(  1.08) 


I  (0)  =  0 
P 


I  (0)  =  I 
n 


(1.0-^) 


I  (w)  »  I  -  I  (w)  . 
P  n 


Then  ftp  (^)  IS  set  to  zero  in  (1.05).  The  resulting  expression  tor  M 
becomes : 


M  =  exp 


•  w 

I 

-'o 


(  ^  )  d  ^ 


(1.10) 


This  result  clearly  exhibits  a  "soft"  breakdown  character ist ic  in¬ 
asmuch  as  M  approaches  infinite  values  only  as  the  integral  in  (1.)P) 
does  so  also.  There  is  no  finite  reverse  bias  voltage  V  leading  to  an 
infinite  current.  Such  a  conclusion  is  not  suiprising;  it  was  precisely 
such  a  conclusion  that  encouraged  Townsend  to  postulate  two-carrier-  mul- 
t ipl ication. 

There  is  a  problem  with  this  result,  and  this  problem  is  assrrciated 
with  the  redefinition  ot  M  (compare  (1.06)  with  (1.09)).  In  a  hole  ini¬ 
tiated  multiplication  process  the  reverse  saturation  current  of  the  Schottky 
barrier  is  clearly  a  consequence  of  space-charge  generated  holes  that  move 
to  the  p-type  substrate  material.  In  the  latter  case,  it  is  the  current 
due  to  minority  electrons  flowing  from  the  p-substrate  to  the  metal-sili- 
cide.  The  former  is  many  orders  of  magnitude  larger  than  the  latter,  es¬ 
pecially  at  reduced  temperatures.  At  77'^K,  tor  example,  the  intr  ins ic 
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electron  density  in  silicon  is  5.22  x  10  cm  .  With  an  acceptor  den¬ 
sity  of  lo'^  cm  the  corresponding  equilibrium  minority  electron  density 

-54  .1 

in  the  charge-neutral  substrate  is  calculated  to  be  2.73  x  10  ,  cm  . 

Thus,  in  Fig.  3,  the  minority  electron  current  crossing  the  plane  (.  »  K 
should  be  a  negligible  factor  in  contributing  to  the  reverse  I-V  chara.'- 
ter ist ic. 


From  the  foregoing  discussion  it  is  evident  that  single  carrier  mul¬ 
tiplication,  due  to  electrons,  is  an  implausible  mechanism  in  an  ideal 
semiconductor  structure.  If,  instead,  substantial  lattice  damage  exists 
(micro-cracks,  strain,  etc.),  electron/hole  generation  could  take  place, 
and  such  damage  could  represent  a  significant  source  for  electrons.  For 
this  reason  (1.10)  has  been  also  implemented  in  the  present  computer 
model,  and  this  expression  leads  to  results  differing  from  (1.07). 

The  computer  model  functions  as  follows  when  evaluating  the  above 

expressions  for  M.  A  search  is  first  made  to  ascertain  the  location  of 

the  maximum  electric  field  along  the  metal-silicide-silicon  interface. 

Three  trajectories  are  then  determined,  the  middle  one  initiating  at  the 

point  of  maximum  E,  the  other  two  bracketing  it.  Equation  (1.07)  is  next 

evaluated  along  all  throe  paths,  and  a  test  is  made  to  ascertain  which  of 

the  three  produces  maximum  M.  If  not  the  middle  path,  the  pattern  of 

three  paths  is  shifted  left  or  right  along  the  interface,  accordingly, 

and  the  process  is  repeated  until  the  middle  path  produces  a  maximum  M 

for  a  given  applied  voltage  V.  In  the  special  case  that  the  geometry 

under  study  has  circular  symmetry  (i.e.  X  =  Y  =  r  ,  and  0  =0),  this 

m  m  m  ss 

trial  and  error  search  p>tocedure  is  bypassed.  (The  symmetry  then  assures 
that  all  paths  will  produce  the  same  M,  and  only  a  single  trajectory  need 
bo  treated.  The  one  selected  is  that  which  initiates  in  the  diagonal 
plane  of  symmetry.) 

Two  versions  of  the  subprogram  for  evaluating  the  breakdown  phenom¬ 
enon  have  been  developed.  The  first  subprogram,  which  is  designed  to  find 
a  voltage  V  producing  an  infinite  value  of  M,  requires  a  substant ial ly 
greater  computation  time.  The  second  subprogram  is  designed  to  provide 
data  for  plotting  M  versus  V. 

In  the  first  version,  an  assumed  applied  voltage  V  is  varied,  using 
an  iterative  process,  until  the  two-carrier  multiplication  factor  M  clianges 
sign.  This  change  of  sign  signifies  that  the  breakdown  voltage  has  been 
bracketed.  During  iteration  the  two-dimensional  potential  distribution, 
and  the  electric  field  distribution,  are  scaled  with  the  revised  estimates 
for  V,  in  accordance  with  their  dependency  upon  V  from  planar  depletion 
theory.  This  scaling  is  done  to  avoid  repeated  new  solutions  of  Poisson's 
equation,  and  repeated  new  trajectory  calculations.  Once  having  "zeroed” 
in  on  a  correct  V,  however,  the  entire  procedure  is  then  repeated  itera¬ 
tively.  New  self-consistent  solutions  for  the  potential  and  electric 
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field  are  generated,  and  new  trajectory  calculations  are  undertaken  to 
find  a  path  of  maximum  M  and  a  revised  .stimate  for  V.  This  iterative 
process  is  continued  until  the  most  recent  estimate  of  the  breakdown  vol¬ 
tage  is  within  a  specified  [>ercentage  of  its  previous  value. 

With  the  second  version  of  this  computer  program,  the  applied  voltage 
V  is  varied  through  a  given  range,  in  given  increments,  and  the  correspond 
ing  values  of  M  (using  both  (1.07)  and  (1.10)  are  determined  and  tabulated 
This  version  is  much  more  useful  for  exploring  "soft*  breakdown  tenden¬ 
cies,  supplying  as  it  does  direct  information  for  plotting  curves  showing 
M  versus  V. 

A  simplified  version  of  (1.07)  is  used  for  avalanche  breakdown  cal¬ 
culations.  In  this  version  (1.07)  a  and  «  are  assumed  equal,  having 

n  p 

a  dependence  upon  electric  field  as  determined  by  Kennedy  and  O'Brien  (91, 
and  found  to  produce  results  in  good  agreement  with  experiment  for  a  wide 
variety  of  silicon  p-n  junction  devices.  The  Kennedy-0' Br ien  value  of  Q, 
for  room  temperature,  is  corrected  for  the  specified  operating  tempera¬ 
ture  T  fitting  to  the  theoretical  results  of  Baraff  1 10],  as  discussed  by 
Crowell  and  Sze  (11).  The  second  version  of  this  computer  program,  dis¬ 
cussed  above,  utilizes  Crowell  and  Sze's  formulas  directly  to  obtain  es¬ 
timates  for  both  a  and  a  for  use  in  (1.07)  and  (1.10).  As  a  conse- 
n  p 

quence  of  these  differences,  the  two  approaches  yield  slightly  different 
estimates  for  the  voltage  leading  to  avalanche  breakdown. 

2.06  Calculation  of  the  Temperature-Dependent  Parameters 

Figure  4  illustrates  the  energy  band  diagram  (in  electron  volts)  for 
a  Schottky  barrier  on  p-type  silicon,  and  defines  the  intrinsic  and  ex¬ 
trinsic  Fermi  levels  and  E^,  the  valence  and  conduction  band  edge  ener¬ 
gies  E  and  E  ,  the  energy  gap  E  ,  the  acceptor  impurity  level  E_,  (all 
V  c  g  a 

referred  to  the  charge-neutral  substrate  region) ,  as  well  as  the  Schottky 
barrier  height  <t>  ^  and  the  "built-in"  potential  difference  inter 

relationship  between  these  fundamental  parameters,  and  the  dependence  of 
the  intrinsic  and  extrinsic  majority  hole  densities  upon  them,  are  sensi¬ 
tive  to  temperature  (in  some  instances  dramatically)  as  well  as  to  the 
doping  density.  These  dependencies  ate  taken  into  account  in  a  subpro¬ 
gram  of  the  computer  model  in  the  manner  next  to  be  described. 

a)  Energy  Gap. — The  energy  gap  E^  is  slightly  dependent  upon  temper¬ 
ature.  The  following  formula  is  an  empirical  fit  to  Figure  10.2 
of  (121: 
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=  1  .  165  -  7.242  x  10'^(T/.100)  -  J.664  x  10~^(T/300)^  (1.11) 

b)  Intrinsic  Kcinti  l.cvol. — Tlic  intrinf'.ic  Fornii  level  F.  is  essen¬ 
tially  located  at  ttie  niiclaap  (osition,  <1eviatin>j  Irom  same  in  a 
manner  sliylitly  dependent  upon  t empei at ure ,  as  well  as  upon  the 
ratio  of  the  ettective  density  of  states  at  the  conduction  and 
valence  band  edqes : 

E  .  -  K  »  EsV  2  +  (kT/^)ln(N  /N  ) 

IV  VC 

-  E-4/ 2  -  1.J06  X  10”‘(TM00)  (1.12) 


Here  we  have  used  (N^/N^)  =  1.02/2.8,  taken  from  pq .  J59  of  (121. 

c)  Acceptor  Level. --The  energy  level  of  acceptor  states  is  sliyhtly 
dependent  on  the  doping  density,  the  tollowing  formula  being 
adopted  from  [  I .) )  : 


E  -  E  =  .0438  -  3.037  x  10‘^  N 
a  V  a 


(1.13) 


d)  Intrinsic  Density. — The  intrinsic  density  of  electrons  and  holes 
is  a  strongly  dependent  function  of  temperature  114): 


n .  =  3.925  X  10 

1 


/  T  \3/2 

|-qEy2kl| 

1  300  ) 

f  -3  ( 

(1.14) 


Here  the  leading  numerical  constant  has  been  chosen  so  as  to 

cause  n^  to  equal  1.5  x  10 cm  when  T  =  30o''^K. 

e)  Bulk  Hole  Density. --The  hole  density  within  the  charge-neutral 

substrate  region  is  related  to  the  intrinsic  density  and  to  the 

Fermi  energies  E.  and  E,  by  the  well-known  relationship: 
if 


p  =  n.  exp 


jq(Ki 


E|.)  kx' 


(1.15) 


This,  too,  is  strongly  dependent  upon  temperature, 

f)  Ionized  Acceptor  Density. — The  ionized  accep'tor  density  is  mod¬ 
erately  dependent  upon  temperature,  the  tollowing  being  adopted 
from  (13): 
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N  » 
a 


(1.16) 


wheie  »  .044  eV,  and  accounts  £oi  the  spin  orbit  splitting  at  the  va- 
ie'ice  band  maximum  in  silicon. 

The  crux  ot  the  temperature  dependence  of  the  equilibrium  parameters 
is  seated  in  (1.14)  through  (1.16),  witti  the  latter  two  of  these  equations 
involving  the  extrinsic  Fermi  level  E^,  which  is  unknown  a-priori.  That 
level  must  self-adjust  to  satisfy  the  requirement  of  charge  neutrality  in 
the  bulk  substrate  region.  Given  the  operating  temperature  T,  self-con¬ 
sistent  solutions  of  (1.14)  through  (1.16)  are  required  which  satisfy  the 
condit ion: 

N  +  p  «  0  (1.17) 

d 

(here,  we  ignore  the  small  additional  charge  due  to  the  presence  of  minor¬ 
ity  electrons,  which  constitutes  a  negligible  correction.) 

The  subprogram  of  the  computer  model  which  treats  the  determination 
of  the  above  equilibrium  parameters,  given  the  doping  density  N  and  the 

d 

operating  temperature  T  as  input  data,  determines  this  self-consistent 
solution  of  (1.14)  through  (1.16),  using  iterative  methods. 

TABLE  I  illustrates  the  temperature  dependence  of  the  intrinsic  den¬ 
sity  n.,  the  ionized  acceptor  density  N  ,  and  the  "built-in"  potential 

‘  ^  15 

difference  ,  for  the  case  where  the  acceptor  density  N  is  10  ,  and 

bi  a 

the  Schottky  barrier  height  is  0.27  eV  (typical  ot  a  platinum-silicide 
on  p-type  silicon  structure). 
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T(°K) 

,  -3, 

n^(cm  ) 

N  (cm 

d 

(Volts) 

50 

-41 

6.73x10 

14 

1  .62x10 

2.30x10~’ 

I 

100 

4.61x10"’ ’ 

14 

9.16x10 

1 .97x10"’ 

150 

6.08x10~’ 

14 

9.89x10 

1 .53x10"' 

,  200 

8.08x10^ 

14 

9.97x10 

1 .07x10"’ 

1 

250 

1 .08x10® 

1  4 

9.98x10 

5.89x10"^ 

300 

1 .50x10^° 

1  4 

9.99x10 

9.60x10"^ 

350 

5.32x1o” 

14 

9.99x10 

-4.08x10"^ 

TABLE  I  —  Temperature  Dependence  of  the  Intrinsic 


Density  n.,  the  Ionized  Acceptor  Density  N  ,  and  the  Built- 

1  (3 

in  Potential  for  a  Schottky  Barrier  on  p-typo  Silicon, 
for  the  Case  =  0.27  ev,  =  lo'^  cm  ^ 


Examining  this  table,  one  notes  the  negligible  density  of  minority 
2 

carriers  (n  *  n .  /N  )  in  comparison  with  majority  carriers  (p  ft  N  ) 
Id  0 

over  the  entire  temperature  range.  One  also  notes  the  rapid  decrease  of 
the  "built-in"  potential  as  the  temperature  increases.  The  barrier 

becomes  essentially  "ohmic"  at  temperatures  well  below  300^K.  One  notes, 
also,  the  gradual  "freeze-out"  of  ionized  acceptors  as  the  temperature 
decreases . 

The  discussion  above  has  been  directed  toward  p-type  Schottky  bar¬ 
riers.  Minot  modifications  make  it  applicable  to  n-type  structures  as 
well : 


a) 


One  substitutes  the  n-type  barrier  height  in  place  of  the 

H 

for  p-type  material.  (The  sum  equals  the  energy  gap 

E  ).  One  also  substitutes  N,  in  place  of  N  ,  and  interchanges 
g  d  a 


subscripts  p  and  n. 


2b 


b)  One  substitutes  the  ionized  donor  density  N.  in  lieu  of  the  ionized 

a 

acceptor  density  N  .  The  temperature  dei^endence  of  the  former 

d 

differs  from  that  of  the  latter  (eq.  (1.16)),  becominq: 

I 

_ _ _ f  (1.18) 

1  +  2  exp  -  E^)/kT|  ( 

Equation  (1.18)  differs  from  (1.16)  on  two  counts;  1)  There  is  no  spin- 
orbit  splitting  in  the  conduction  band;  2)  The  ground  state  degeneracy 
factor  for  the  conduction  band  is  2,  instead  of  4. 
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CHAPTER  II 


Calculations  o£  the  Reverse  Voltage  Breakdown  Characteristics  of  Metal- 
Silicide  Schottky  Barriers  on  P-Type  Silicon 

In  this  chapter  we  present  results  obtained  with  the  computer  model 

for  p-type  structures,  assuming  r  ,  N  ,  Q  ,  and  T  are  the  given 

n  B  a  ss 

parameters . 

1 . 0  The  Effect  of  Barrier  Radius  of  Curvature 

Figure  5  illustrates  the  effect  of  barrier  radius  of  curvature  (r 

m 

in  Fig.  1)  upon  the  multiplication  ratio  M.  This  figure  shows  M  versus 
V,  using  both  (1.07)  and  (1.10)  for  two-carrier  and  single  carrier  multi¬ 
plication,  respectively.  These  calculations  were  based  upon  an  assumed 

N  of  1.6  X  10^^  (10  ohm-cm  material),  and  <l>  =  0.27  ev  (simulating  a 

a  B 

platinum-silicide  barrier),  at  T  =  77  K.  Circular  symmetry  was  used  in 

this  calculation  (x  =  y  =  r  ) . 

m  m  m 

Figure  5  shows  that  breakdown  occurs  at  progressively  lower  voltages, 
with  a  reduction  in  radius  of  curvature.  Further,  this  sequence  of  calcu¬ 
lations  show  that  single  carrier  multiplication  is  "softer"  in  appearance 
than  a  two-carrier  multiplication  process,  where  M  =oo  at  finite  reverse 
voltages . 

Figure  5  reveals  an  interesting  trend,  however.  The  smaller  the  radius 
of  curvature,  the  more  nearly  do  the  curves  for  two-carrier  and  single¬ 
carrier  multiplication  coincide  at  low  voltages  and  currents.  Specifically, 
a  two-carrier  multiplication  process  becomes  "soft"  with  a  reduction  in 
radius  of  curvature.  The  foregoing  observation  is  further  illustrated  in 
Figure  6,  which  is  a  "biown-up"  view  of  the  r^  =  .01  /x  m,  curve  from  Fig.  5. 

From  Fig.  6,  it  is  suggested  that  a  very  shallow  platinum-silicide  layer 
could  produce  a  very  small  radius  of  curvature  and,  hence,  soft  breakdown 
characteristics  at  small  values  of  applied  biasing  voltage. 
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Multiplication  Ratio  vs.  Reverse  Applied  Voltage 
for  a  Range  of  Junction  Radius  of  Curvature 
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MULTIPLICATION  RATIO  M 


Fig,  6 

Multiplication  Ratio  M  vs.  Applied  Reverse  Voltage, 
Assuming  the  Radius  of  Curvature  is  100  X 
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2.0  The  Effect  of  the  Barrier  Height 

Breakdown  calculations  were  undertaken  to  ascertain  the  sensitivity 

of  carrier  multiplication,  M,  on  the  barrier  height  These  calcula- 

B 

tions  were  undertaken  throughout  the  range  0.25  <  1  0.35  ev,  TABLE 

B 

II.  From  these  calculations  it  must  be  concluded  that  carrier  multipli¬ 
cation  in  a  reversed  biased  platinum-silicide  diode  shows  little  dependence 
upon  the  barrier  height. 


<<>B  (ev) 

M 

0.25 

5.80 

0.30 

6.07 

0.35 

6.37 

Table  II  —  Multiplication  Ratio  M  versus  Barrier  Height  <#> 

15  o  ° 

assuming  r  =  0.1  urn,  N  =  1.6  x  10  ,  T  =  77  K, 

m  a 

and  V  =  22  V. 


3.0  The  Effect  of  the  Substrate  Resistivity 

Figure  7  shows  the  calculated  effect  of  substrate  resistivity  upon 

carrier  multiplication,  assuming  <^>  =  0.27  ev,  r  =  0.1  fiw,  T  »=  77°K. 

B  m 

These  calculations  ate  shown  for  both  single-carrier  and  two-carrier  multi¬ 
plication,  against  an  applied  biasing  voltage,  V. 

From  Fig.  7,  a  decrease  is  observed  in  the  calculated  breakdown  vol¬ 
tage,  with  decreasing  substrate  resistivity;  clearly,  this  characteristic 
is  consistent  with  calculations  of  breakdown  for  a  planar  type  structure. 
Although,  a  0.1  radius  of  curvature  is  far  from  planar,  planar  theory 
does  correctly  predict  the  trend  that,  the  higher  the  doping  (i.e.  the  lower 
the  resistivity),  the  higher  will  be  the  maximum  electric  field  at  the 
barrier  interface  and,  therefore,  a  reduction  is  obtained  in  the  breakdown 
voltage . 

4.0  The  Effect  of  Surface  Charge  at  the  Silicon-Silicon  Dioxide  Interface 

The  effective  surface  charge  is  known  to  arise  when  SiO^  is  grown 
on  the  surface  of  silicon;  this  charge  is  known  to  be  positive,  and  with 
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•8  2 

a  magnitude  on  the  order  of  10  Coulombs/cm  [16].  To  test  the  effect 

of  this  surface  charge  upon  the  breakdown  voltage «  we  assumed  a  value  of 

-7  2 

0  an  order  of  magnitude  larger  (i.e.  10  C/cm  ).  Table  III  summarizes 
ss 

the  results  of  our  calculations,  assuming  both  positive  and  negative  Q 

ss 

at  the  Si/Ox  interface. 


(C/cm^) 

SS 

V.  (Volts)  (-5%) 

D 

0 

S2.2 

-7 

+  10 

49.8 

-7 

-10 

32.3 

Table  III  —  The  Effect  of  Oxide  Surface  Charge  upon  the  Breakdown 

Voltage  of  a  P-type  Schottky  Barrier.  =  1o'^, 

T  «  77°,  X  =  y  »  r  »  1  urn. 
m  m  m 


In  general,  all  calculations  assuming  a  positive  value  of  Q  produced 

ss 

a  negligible  change  of  avalanche  breakdown  voltage.  In  contrast  with  these 

results,  a  negative  0  produced  a  marked  decrease  in  the  breakdown  vol- 

ss 

tage.  Further,  calculations  for  a  negative  clearly  indicated  that 
breakdown  occurs  along  the  oxide-silicon  interface. 

To  gain  insight  into  why  a  negative  produced  such  results,  con¬ 
sider  the  case  when  Q  is  absent,  and  the  region  where  breakdown  occurs 

ss 

is  essentially  depleted  of  mobile  carriers.  This  proposed  situation  pro¬ 
duces  a  uniform  charge  density,  due  to  negatively  ionized  acceptors.  In 
one  dimension,  planar  depletion  theory  predicts  that  the  maximum  electric 
field  occurs  right  at  the  barrier  surface,  and  is  given  by: 


(1.18) 


Note  that  the  higher  the  negative  charge  N^,  the  higher  the  electric 
field,  and  therefore  the  lower  the  expected  breakdown  voltage. 
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Although  the  i^Uinat  solution  cited  cannot  V’rcJict  guant  Itat  ivoly 

the  effect  of  a  surface  charge  0^^*  it  does  predict  gual itat ively  the 

effect  observed  in  Table  III.  Locally,  a  negative  0  w«.iuld  augment  the 

ss 

negative  charge,  due  to  bacKgiound  acceptors,  and  a  local  increase  in 
electric  field  along  the  surface.  Thereby,  from  a  gualitative  point  of 
view,  it  is  suggested  that  a  decrease  of  breakdown  voltage  will  be  ob¬ 
served  in  the  vicinity  of  a  negative  surface  charge.  Conversely,  a 
ixjsitive  Ogg  would  tend,  locally,  to  comi'>ensate  the  negative  background 
charge  and,  thereby,  lead  to  a  decrease  in  electric  field,  and  an  associ¬ 
ated  increase  ot  breakdown  voltage.  This  is  generally  consistent  with  our 

observations  in  the  computer  model.  Assuming  0  positive,  breakdown  was 

ss 

found  to  occur  well  away  from  the  SiO^-Si  interface.  Conversely,  with 
0^^  negative,  it  occurred  right  at  that  interface. 

From  the  foregoing  calculations  it  is  suggested  that  an  oxide  surface 
charge  0^^  (which  is  physically  positive)  will  have  a  marked  effect  on  the 
avalanche  breakdown  voltage  of  n-type  Schottky  b.irriers,  and  a  negligible 
effect  ui'on  p-type  structures. 

5.0  The  Effect  ot  Temperature 

Figure  8  presents  the  calculated  breakdown  voltage  for  two-carrier 

multiplication,  as  a  function  of  temi’etatuie  T,  for  the  case  «  1,6  x  lo' 

<i>  „  «  0.27  ev,  and  r  »  O.liim.  As  previously  stated,  the  computer  model 

utilizes  Crowell  and  Sze's  empirical  fit  to  Baraff's  curves  to  estimate 

the  Townsend  ionization  coefficients  •>  and  n  at  reduced  temperatures. 

n  p 

We  find  that  this  empirical  fit  does  not  adequately  agree  with  published 

o 

experimental  data  at  temperatures  well  below  300  K.  For  this  reason,  there 
remains  many  viuestions  as  to  whether  the  siiecific  shape  v->f  the  curve  in 
Figure  8  is  more  than  qualitatively  correct. 

From  Table  1,  however,  it  is  clear  that  a  p-type  plat inum-silicide 
Schottky  barrier  goes  ohmic  at  temi'>eratures  approaching  room  temy>erature. 
This  situation  implies  that  large  reverse  currents  will  be  observed  at 
voltages  well  below  the  c  22  volt  value  shown  in  Figure  8.  For  this 
reason,  it  appears  physically  meaningless  to  undertake  breakdown  calcula¬ 
tions  at  temperatures  such  that  the  "built-in"  potential  is  on  the 
order  of  a  few  (kT/q) ,  or  less.  Mechanisms  other  than  avalanche  break¬ 
down  come  Into  play  at  elevated  temperatures,  and  these  mechanisms  produce 


TWO- CARRIER  BREAKDOWN  VOLTAGE 


TEMPERATURE  (»K) 

Fi9 .  8 

Calculated  Breakdown  Voltage  for  a  Two-Carrier 
Multiplication  Process  vs.  Junction  Temperature 


j 


large  reverse  currents  at  reverse  voltages  well  below  those  required  for 
significant  carrier  multiplication. 
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CHAPTER  III 


Instructions  for  Using  the  Computer  Program 
1 . 0  Input  Data 

Input  data  are  specified  in  the  form  of  NAMELIST  data  sets:  GEOM, 
PRMTRS,  CONTRL,  SWITCH,  and  SINGLE.  Table  IV  shows  a  sample  set  of  such 
input  data. 


jtiEOM  XWIUT.)  =  0.10,  Yl)EPTH  =  0.  ID,  I  MAX  =  3 1,  JMAX  =  3 1,  MX./DTII=  17,  NYUPTH  =  1 7, 
XUELTA=1.  Jd,  YL)ELrA=l.  JJ,KAl)  =  d.  ld,.iEMI) 

APRMTKS  ACCPTR  =  1.GE13,  (3RR I  ER  =  0 . 2  7,  (153  =  0 . 0  JE- OD, T(;PTR-D77 . 0, iEND 
'iCUNTRL  1TI1AX  =  23,  I  TRI1AX  =  2i,  COIJVR3  =  0 . 02 ,  S  1 011  =  0 . 0  15 ,  AVDLT  = .  01, 
VLT0LT=.05,  KNTMAX  =  1  )  J,3E0r) 

I  MOLE  V0LT0  =  5 . 0,  DLTVLT-5  .  0,  NV0LT  =  5 ,  K0UTPT»1,  r«EMD 
.’iSili  rCH  NDOPE  =  'l,;iEND 

SCIIOTTKY  BARRI ER--30FT  RREAKOO.IN  CASE 
a3S=J.E-0J  RAD=.1J 


Table  IV  —  Sample  Input  Data 


Note  that  the  last  3  cards  of  the  data  set  are  for  a  3-line  title;  thereby 
a  user  may  identify  the  purpose  of  any  particular  run.  It  is  emphasized 
that  these  3  title  cards  must  be  present  in  the  data  deck,  even  if  they  are 
left  blank.  Immediately  following  the  input  of  these  data,  the  title  is 
printed,  in  addition  to  a  listing  of  all  input  data. 

As  discussed  in  Chapter  I,  two  versions  of  the  program  exist,  the 
first  version  iterates  the  applied  voltage  to  ascertain  the  applied  vol¬ 
tage  leading  to  breakdown,  the  second  version  increments  the  applied  vol¬ 
tage  over  a  specified  range,  and  at  specified  increments.  The  latter  are 
specified  in  NAMELIST/SINGLE/.  In  the  event  that  the  first  version  of  the 
program  is  being  used,  NAMELIST/SINGLE/  should  be  omitted.  Failure  to  do 
so  will  result  in  an  EXIT. 


It  is  also  emphasized  that  the  order  in  which  these  NAMELISTS  appear 
in  the  data  deck  must  be  retained. 


1.01  NAMELIST/GEOH/ 

This  data  set  specifies  the  geometry  to  be  treated,  and  it  includes: 

XWIDTH  —  Width  of  the  metal-silicide  region  in  microns  (x  of  Figure  1). 

in 

YDEPTH  —  Depth  of  the  metal-silicide  region  in  microns  (y  of  Figure  1). 

m 

IMAX  —  Total  number  of  lattice  points  in  the  x-direction  of  Figure  1 
(31  maximum). 

JMAX  —  Total  number  of  lattice  points  in  the  y-direction  of  Figure  1 
(31  maximum) . 

NXWDTH  —  Number  of  lattice  points  in  the  x-direction  which  overlay  the 
metal-silicide  region  (a  fraction  of  IMAX) . 

NYDPTH  —  Number  of  lattice  points  in  the  y-direction  which  overlay  the 
metal-silicide  region  (a  fraction  of  JMAX) . 

XDELTA  —  The  parameter  8^  (<  1)  described  below. 

YDELTA  —  The  parameter  6^  (<1)  described  below. 

RAD  —  Radius  of  curvature  of  the  metal-silicide  corner,  in  microns 

(r  of  Figure  1 ) . 
m 


The  parameters  8^  and  8^,  represented  by  XDELTA  and  YDELTA  above, 
control  the  grading  of  the  lattice  illustrated  in  Figure  2.  Both  XDELTA 
and  YDELTA  must  be  assigned  numerical  values  <  1.  (In  generating  the 
graded  lattice  of  Figure  2,  XDELTA  and  YDELTA  were  equal,  with  a  magnitude 
of  0.85).  These  grading  parameters  function  in  the  following  manner. 

Let  Ax  be  the  interval  between  two  horizontal  lattice  points  located 
at  I  and  1-1  (where  2  <  I  <  NXWDTH-1).  The  interval  Ax'  between  the  lat¬ 
tice  points  located  at  I  and  I  +  1  is  given  by  the  algorithm 
Ax  (I  +  1)  *  8^  Ax(I).  Thus,  with  8  <  I,  the  spacing  between  adjacent 
lattice  points  gradually  reduces  to  smaller  and  smaller  values  as  the  index 
I  increments  from  2  to  NXWDTH-1.  The  parameter  8^  plays  a  similar  role  in 
grading  the  vertical  lattice  spacings  within  the  rectangle  which  overlays 

the  metal-silicide  region.  Note  that  setting  both  8  and  8  equal  to 

X  y 

unity  leads  to  a  uniform  lattice  spacing  in  that  region,  which  is  really 


the  best  choice  when  the  geometry  treated  has  circular  s^Tiwietry  (i.e. 

X  ■  y  “  r  in  Figure  1 ) . 
m  m  m 

It  will  be  noted  that  the  parameters  XDELTA  and  YDELTA  are  used  only 
for  the  rectangle  which  overlays  the  roetal-silicide  region.  The  grading 
of  the  remaining  lattice  spacings  (for  NXWDTH  <  I  <  IMAX  and  NYDITH  <  J  <  JMAX) 
is  achieved  autom.>t ically ,  once  the  lattice  for  the  metal-si  1  icicle  region  has 
been  determined.  Multipliers  analogous  to  XDELTA  and  YDEl.TA  are  determined 
in  order  to  apportion  the  remaining  lattice  points  throughout  a  distance  of 
1.2S  depletion  widths,  as  shown. 

1.02  NAMELIST/PRMTRS/ 

ACCPTR  —  The  acceptor  density  N  (cm  ^) .  (To  treat  n-type  material,  this 

d 

parameter  must  be  assigned  the  numerical  value  of  the  donor  den¬ 
sity.) 

BRRIER  —  The  Schottky  barrier  height  (ev)  . 

O 

2 

QSS  —  The  oxide  interface  interface  charge  Q  (C/cm  ) . 

ss 

o 

TMITR  —  The  operating  temperature  T  (  K) . 

1.03  NAMELIST/CONTRL/ 

This  data  set  specifies  parameters  which  control  the  iterative  proce¬ 
dures  used  within  the  computer  model. 

ITMAX  —  Maximum  number  of  iterations  to  be  allowed  in  the  implementation 
of  Gummel's  algorithm.  The  program  will  stop  execution,  and  a 
termination  message  will  be  printed  if  ITMAX  is  exceeded. 

ITRMAX  --  Maximum  number  of  iterations  to  lx*  allowed  in  the  implementation 
of  Stone's  method.  The  program  will  stop  execution,  and  a  termi¬ 
nation  message  will  be  printed  if  ITRMAX  is  exceeded. 

CONVRG  "  Convergence  criterion  for  Gummel's  algorithm. 

MAX  I  ilr  -  i/i  .1  <  CONVRG,  where  m  is  the  iteration  number 

^m  ’^m  ♦  1 1 

SIDLT  —  Convergence  criterion  for  Stone's  method.  When  the  maximum  of 
the  absolute  residual  (see  Stone's  paper  for  its  definition)  is 
found  less  than  SIDLT,  Stone's  method  is  taken  to  have  converged. 

AVDLT  Convergence  criterion  for  the  method  of  secants  in  SliBROirriNF. 

AVLNCH.  When  the  denominator  in  eq.  (1.07)  is  found  to  have  an 
absolute  value  less  than  AVDLT,  convergence  is  satisfied. 


VLTDLT  —  Convergence  criterion  for  the  outer  iterative  procedure  used  in 

SUBROUTINE  AVLNCH,  When  the  new  value  of  V  is  within  VLTDLT  x  100% 
of  the  previous  value,  convergence  is  satisfied. 

KNTMAX  —  Maximum  number  of  points  allowed  per  trajectory  in  SUBROUTINE 

AVLNCH.  If  this  is  exceeded,  execution  will  stop,  and  a  termi¬ 
nation  message  will  be  printed,  explaining  any  necessary  correc¬ 
tive  action. 

The  sample  input  data  contained  in  Table  IV  give  values  for  the  above 
parameters  which  have  been  found  to  work  satisfactorily. 


1.04  NAMELIST/SINGLE/ 

This  data  set  is  required  only  when  the  second  version  of  the  program 
is  used.  These  parameters  are  designed  to  step  the  applied  voltage  through 
a  prescribed  range,  listing  M  (the  carrier  multiplication)  for  both  two- 
carrier  and  single-carrier  processes.  This  data  set  should  be  omitted  if 
the  first  version  of  this  program  is  to  be  used. 


VOLT  0  —  The  initial  (lowest)  voltage  to  be  used  (volts). 

DLTVLT  —  The  voltage  increment  (volts)  for  stepping  the  applied  voltage 
upwards . 

NVOLT  —  The  number  of  applied  voltage  values  to  be  treated. 

KOUTPT  —  A  switching  parameter  used  to  bypass  the  printing  of  voluminous 
output  of  two-dimensional  tables.  Set  KOUTPT  =  0  if  detailed 
data  printout  is  desired.  Set  KOUTPT  =  1  if  these  data  are  not 
required . 


1.05  NAMELIST/SWITCH/ 

This  data  "set"  contains  a  single  parameter  used  to  flag  whether  p-type 
or  n-type  material  is  to  be  treated. 

NDOPE  --  Set  NDOPE  *  0  if  the  substrate  is  to  be  considered  p-type,  or 

NDOPE  =  1  if  the  substrate  is  n-type. 


2 . 0  Output  Data 

The  output  data  printed  with  the  computer  model  will  first  be  discussed 
in  the  context  of  the  second  version  of  the  computer  program,  wherein  the 
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applied  reverse  voltaije  is  incremented  in  v>re-Rpecif  ied  steps.  Alterations 
of  the  data  format  for  the  other  version  will  then  Ih?  discussed  separately. 

2.01  Output  Data  tor  the  Version  Which  Increments  the  Applied  Voltage 
in  Ptespecified  Steps 

Table  V  (2  sheets)  illustrates  the  output  obtained  with  the  former 
version.  Note  that  the  title  tliat  was  included  witli  the  input  data  is 
first  printed,  followed  by  a  summary  of  the  data  specified  in  the  five 
input  NAMELIST  sets.  This  is  followed  by  a  summary  of  the  equilibrium 
parameters  at  the  specified  temperature  T  (77^K  in  this  case).  Those 
data  are: 

TMPTR  —  The  temperature  (°K) 

EGAP  —  The  enerqy  gap  Eg  (ev) 

EIV  —  The  energy  difference  (E^  -  E^)  of  Figure  4 

EFV  —  The  energy  difference  (Ej,  -  B^)  of  Figure  4 

TRNSIC  —  Tlie  intrinsic  carrier  density  n^  (cm  '^)  at  temperature  T. 

UKGRNU  —  The  background  density  of  ionized  impurities  (cm  'S  at  that 

temperature 

VBLTIN  —  The  "built-in"  potential  (volts)  of  Figure  4 

Following  the  above  listing,  information  is  given  allowing  one  to  fol¬ 
low  the  progress  of  the  iterative  procedure.  The  case  illustrated  (x>ssesses 

circular  symmetry  (x  »  y  «  r  )  and  therefore  the  initial  guess  for  ij)  ob- 
in  m  m 

tained  from  cylindrical  coordinate  depletion  theory  is  a  reasonable  approx¬ 
imation.  In  this  example  three  iterations  of  Stone's  metluxl  were  required, 
and  a  single  application  of  Gummel's  algorithm  was  sufficient  to  achieve 
convergence . 

Subsequent  to  this  convergence  of  the  iterative  procedure  for  each 
voltage  step  the  following  data  are  tabulated: 

K  —  K  «  2  signifies  that  the  central  trajectory  of  the  triplet  of 

trajectories  normally  investigated  is  the  one  for  which  the  data 
are  listed.  (Actually,  because  of  the  circular  symmetry  of  the 
case  illustrated,  it  was  the  only  one  treated.) 
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—  The  indices  (I,  J)  of  the  lattice  point  at  the  upiJer  left  comer 
of  thft^"box"  containing  the  starting  location  of  the  trajectory. 

—  The  (x,  y)  coordinates  (in  microns)  of  the  charge  trajectory  as 
time  of  flight  increases. 

“  The  total  electric  field  (E  »  ^[7=T  E  (in  V/cm)  at  that 
location.  ^ 

—  The  Townsend  coefficients  q  ,  n  ,  obtained  from  Crowell  and 

P  P  - 1 

Sze's  empirical  fit  to  Baraff’s  curves  (cm  ). 

—  The  value  of  the  integral  in  eg.  (1.10)  for  the  care  of  single- 
carrier  multiplication. 

--  The  value  of  the  integral  in  eq.  (1.07)  for  the  care  of  two- 
carrier  multiplication. 

Note  that  the  two  integrals  converge  to  a  constant  value  as  the 
charge  trajectory  extends  into  regions  of  small  electric  field.  The  nu¬ 
merical  integration  terminates  when  the  most  recent  value  for  H  Is  within 
.01%  of  its  previous  value. 

Following  the  above  tabulations  arc  printed  the  parameters: 

VOLT  —  The  applied  voltage  V  (volts) 

Ml  —  The  single-carrier  multiplication  ratio  given  by  eq.  (1.10). 

M2  —  The  two-carrier  multiplication  ratio  given  by  eq.  (1.07). 

For  the  case  illustrated,  note  that  the  latter  changes  sign  (because  the 
Integral  fl  exceeds  unity)  with  V  ■  25  volts.  This  signifies  that  ava¬ 
lanche  breakdown  occurred  at  a  voltage  somewhere  between  20  and  25  volts, 
for  this  case.  (Figure  5  shows  it  to  occur  at  V  ■  22.6  volts.) 

The  case  illustrated  in  Table  V  was  run  with  KOUTPUT  ■  1,  thereby 
bypassing  the  printing  of  additional  output  data.  Had  KOUTPT  ■  0,  however, 
additional  tables  of  data  showing  would  have  been  listed.  These  tables 
are  all  formatted  in  an  identical  manner,  so  it  suffices  to  illustrate  and 
discuss  only  one  of  them. 

Table  VI  (2  sheets)  illustrates  the  data  listed  for  the  electrostatic 
potential,  in  unnormalized  units.  These  data  were  generated  for  a  case 
differing  from  the  one  discussed  above.  One  reads  the  table  in  the  follow¬ 
ing  manner.  Listed  across  the  top  of  the  first  sheet  are  the  x-coordinates 
X(I)  of  the  lattice,  in  microns.  Just  below  that  are  the  headings  "J,  Y(J), 
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and  PSI(I,  J)  ,  I  -  I,  IMAX* ,  Indicating  that  f>ach  8ut'8«‘t|u«nt  >iiouitni  lists 
the  potential  alon9  a  particular  row  of  the  lattice  (whose  index  is  d  and 
whose  y-coordinate  is  Y(J)i  in  mictuns).  Thus,  lust  scanmnj  the  listing 
of  X(I),  one  then  locates  the  corresixandinq  ^vitential  and  the  y-cix'i  d  mat  e 
Y(J)  in  the  grouping  labeled  J.  In  this  mannei ,  the  two-d imens lona i  solu¬ 
tions  may  be  determined. 

2.02  Output  Data  for  the  Version  Which  Iterates  the  Applied  Vo 1 1 aue  to 
Determine  Avalanche  Breakdown 

Table  VII  (3  sheets)  illustrates  the  output  data  printed  for  the  alter 
nate  version  of  the  computer  program.  The  initial  printout,  including  the 
equilibrium  data,  remains  the  same  as  that  of  the  previous  subsection. 
Following  that  is  listed  the  initial  voltage  estimate  (obtained  from  SUB¬ 
ROUTINE  VGUESS)  with  which  the  iterative  procedure  starts.  Next  follows 
the  summary  of  the  iterative  process  which,  in  this  case,  requires  more 
iterations  with  both  Stone's  method  and  Gummel's  algorithm.  This  is  be¬ 
cause  this  version  of  the  program  uses  planar  depletion  theory  to  supply 
an  initial  estimate  for  potential — an  estimate  which  decreases  in  accuracy, 
with  a  decrease  in  radius  of  curvature. 

With  the  solution  of  Poisson's  equation  now  known,  the  program  next 
deals  with  triplets  of  trajectories,  labeled  K  «  1,  2,  3,  respectively,  as 
it  searches  for  the  trajectory  producing  the  maximum  value  of  the  integr.al 
appearing  in  equation  (1.07).  Normally,  the  next  sequence  of  data  printed 
would  be  a  multiple  set  similar  to  that  typified  by  the  single  set  seen 
following  the  iteration  summary  in  Table  VII,  detailing  what  is  taking 
place  in  this  search  process.  For  the  case  illustrated,  however,  the 
problem  has  circular  symmetry,  and  the  print-out  is  unnecessary.  Thus, 
only  a  single  subset  of  summary  data  appears  in  the  table,  for  the  traiec- 
tory  K  ■  2. 

The  data  included  in  this  subset  are: 

K  —  The  label  assigned  to  the  trajectory 

ISTART  —  The  starting  indices  of  the  trajectory 
JSTART 

XSTART  —  The  Starting  coordinates  (x,  y)  of  the  trajectory,  in  microns. 
YSTART 
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XPATH 

yPATH 


The  coordinates  (x,  y) ,  in  microns,  of  the  moving  charge  as  time 
progresses . 


ET  —  The  total  electric  field  (V/cm)  at  that  location 
ALPHA  —  The  Kennedy-O'Brien  value  for  a  . 

PI  —  The  value  of  the  integral  in  the  denominator  of  (1.07) 

With  the  trajectory  maximizing  PI  determined,  the  program  next  modi¬ 
fies  the  applied  voltage  iteratively,  scaling  E^  along  the  trajectory  in 
the  manner  described  in  Chapter  I,  and  respects  the  evaluation  of  the  in¬ 
tegral  PI  until  the  most  recent  two  values  bracket  unity.  Again,  subsets 
of  summary  data  ate  printed  during  this  search  for  the  bracketing  condi¬ 
tion,  so  that  the  process  can  be  monitored.  In  the  case  illustrated,  this 
bracketing  required  only  a  single  step,  so  only  a  single  subset  of  such 
data  were  printed.  Normally,  more  than  one  such  subset  might  be  expected 
to  appear . 

This  subset  lists  the  following  parameters: 


KEY  —  a  flag;  when  equal  unity  indicating  iteration  subset 
PSINRM —  The  total  voltage  (V.  .  +  V)  in  volts 

bi 

DSTNRM —  The  (planar)  depletion  width  W,  (cm) 

d 


KNT  —  A  counter  for  the  number  of  trajectory  points  in  the  numerical 
integration 

DX  —  Incremental  distances  (cm)  along  the  path  of  the  numerical  in- 
DY  tegration 

ETl  —  The  electric  field  at  the  beginning  and  end  of  the  integration 
ET2  interval 


ALPHA 

PI 


The  Kennedy-O'Brien  empirical  Townsend  coefficient  a 

The  ionization  integral  in  the  denominator  of  eq.  (1.07)  with  a 
and  a ^  replaced  by  o 


Upon  finding  two  adjacent  trial  voltages  which  cause  the  ionization 
integral  PI  to  bracket  unity,  the  secants  technique  is  used  to  zero  in  on 
the  voltage  which  causes  PI  to  equal  unity.  The  flag  KEY  is  set  to  2  for 
this  next  sequence  of  steps.  Again,  a  number  of  subsets  of  data  are 
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printed,  each  time  the  root-finding  program  goes  through  one  of  its  itera¬ 
tions.  In  the  case  illustrated,  only  one  such  subset  was  printed  because 
the  program  converged  to  the  desired  voltage  in  a  single  iteration.  The 
parameters  in  this  subset  are  the  same  as  those  just  defined  above. 

The  above  data  have  all  been  determined  using  the  first  solution  of 
Poisson’s  equation  for  the  initial  estimate  of  the  applied  voltage  V.  Now 
that  a  revised  estimate  for  this  voltage  is  available  an  updated  solution 
of  Poisson's  equation  is  obtained,  and  the  process  is  repeated.  Again,  a 
summary  of  the  convergence  of  the  iterative  determination  of  the  solution 
of  Poisson's  equation  is  listed,  etc.  In  the  case  illustrated,  the  revised 
estimate  of  the  applied  voltage  required  for  breakdown  was  within  the  5% 
convergence  range  specified  by  VLTDLT  in  NAMELIST/CONTRL/ ,  and  so  the  exe¬ 
cution  was  terminated. 

Rather  than  a  STOP,  when  convergence  of  this  process  is  detected,  this 
version  of  the  program  first  prints  all  of  the  two-dimensional  data  exem¬ 
plified  by  Table  VI  (not  repeated  in  Table  VII),  then  prints  the  resultant 
breakdown  voltage.  Then  the  program  loops  back  to  the  beginning  and 
searches  for  a  complete  new  set  of  input  data.  This  allows  multiple  cases 
to  be  treated  in  one  run.  Failing  to  find  such  additional  data,  the  pro¬ 
gram  exits. 
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CMAj’;n-^  IV 

Conclusiuns 


Sovoral  diltoiont  irn'cluinisinsi  couUl  pi  cxiuco  onluinccd  levprsc  current 
(or  breakdown)  in  a  I’t-Si  Scliottky  liarrier  dUxie.  In  two  spatial  dimen¬ 
sions,  a  small  radius  ol  curvatun’  at  the  junction  peril>hery  would  locally 
increase  tlie  spaco-charyi*  layer  electric  field  and,  hence,  increase  carrier 
mult i|>l icat ion .  The  existruice  of  surface  states  at  the  motal-Si  interface 

(and  an  associated  0  )  could  also  onliance  the  reverse  current  (or  break- 

sn 

down),  although  this  mechanism  sliould  not  I’e  siipiif  leant  in  p-tyi>e  devices. 
Similarly,  lattice  sttain,  micro-cracks,  or  other  lattice  damage  could 
pti-xluce  an  enhanced  reverse  current!  the  V'tesence  of  these  lattice  defects 
appi'at  unlikely  to  pr<.Hluce  a  true  breakdown  situation. 

Cleai  ly,  t  tiere  .ire  several  ix'tential  explanations  for  the  large  reverse 
cui rent  exhibited  by  p-type  I’t-Si  barriers.  Our  initial  direction  was  to 
attribute  lliis  reverse  cm  rent  to  a  classical  Townsend  avalanche  process, 
and  to  mixlel  ttiis  puhtoss  in  two  spatial  dimensions.  After  the  computer 
mixlel  became  oi'ei  at  iona  1 ,  siibstanti.il  qualitative  differences  were  observed 
between  tlie  revet se  volt-ampere  characteristics  of  a  laboratory  device  and 
calculated  results.  Most  laboratory  devices  exhibit  a  relatively  soft  re¬ 
verse  characteristic,  whereas  the  computer  nxxiel  predicted  a  relatively 
abrupt  reverse  breakdown.  Thin  comparison  between  experiment  and  theory 
suguosted  th.it  the  reverse  current  of  laboratory  devices  could  be  attribu¬ 
table  to  mechanisms  other  than  avalanche  bieakdown. 

Prom  Townsend's  theory  ol  carrier  multiplication  it  is  known  that 
one-carrier  prixrenses  yield  a  relatively  soft  breakdown  characteristic. 
Purtlier,  other  workers  have  suggested  that  the  ionization  rate  of  electrons 
at  low  temi'eratui  es  in  substantially  greater  tlian  the  ionization  rate  for 
(lolen.  It  is  foi  thin  t  eason  that  a  one-carrier  multiplication  v<rocess 
becomen  a  [xisslble  mechanism  to  explain  the  reverse  volt-ampere  character- 
isticn  of  these  ilevicen.  An  imjxirtant  question  arisen  concerning  the 
available  density  of  electrons  in  p-type  silicon  at  70*'K.  Calculations 
lot  ide.il  p-(  yi'v  material  indicate  an  electron  vlensity  (at  70*'k)  that  in 
tiHi  low  to  pnxiuce  a  signll leant  amount  of  reverse  current. 


It  is  suggested  that  lattice  strain  between  I't/Pt-Si/Si  is  sufticient 
to  produce  substantial  lattice  damage,  and  a  ready  source  of  free  electrons. 
Such  lattice  damage  tias  been  reported  in  the  technical  literature.  Kurthei , 
it  is  suggested  that  lattice  damage  arising  in  devices  containing  a  large 
quantity  of  Pt  is  an  important  reason  why  they  are  of  poor  electrical 
quality.  Most  workers  find  it  necessary  to  use  very  small  ijuantities  ot 
Pt  to  successfully  fabricate  a  Pt-Si  Schottky  barrier. 

Assuming  lattice  damage  produces  the  necessary  electrons,  a  one- 
carrier  multiplication  process  could  explain  the  soft  reverse  current 
characteristics  observed  in  laboratory  experiments.  Further,  theory  pre¬ 
dicts  that  one-carrier  multiplication  processes  yield  an  exponential  in¬ 
crease  of  reverse  current,  with  an  increase  of  reverse  voltage.  Crude 
evaluations  of  practical  devices  show  that  an  ex^xinential  volt-ampere 
relation  is  frequently  observed  over  a  substantial  range  of  reverse  bias. 

For  this  reason,  one-carrier  multiplication  could  provide  a  substantial 
IKirtion  of  the  excessive  reverse  current  in  p-type  Pt-Si  Schottky  barrier 
diodes. 

In  conjunction  with  studies  unrelated  to  this  effort  it  was  realized 
that  other  mechanisms  could  produce  an  exponential  reverse  volt-ampere 
characteristic.  In  particular,  carrier  tunneling  at  the  metal-Si  inter¬ 
face  could  yield  an  exponential  volt-ampere  character  ist  ic,  similar  to  that 
predicted  for  one-carrier  multiplication.  A  very  crude  model  was  developed 
for  tunneling  at  the  Pt-Si  interface;  this  model  qualitatively  established 
the  suspected  volt-ampere  relation,  although  quantitative  results  were  of 
little  value. 

From  this  effort  it  is  concluded  that  additional  work  is  needed  before 
an  adequate  model  is  available  for  reverse  breakdown  in  a  p-type  Pt-Si  de¬ 
vice.  At  this  point  reverse  current  appears  attributable  to  either  a  one- 
carrier  multiplication  or  to  tunneling  at  the  Pt-Si  interface.  Before 
the  dominant  mechanism  becomes  identifiable,  an  accurate  quantum  mechanical 
solution  should  be  obtained  for  tunneling  through  the  Pt-Si  interface 
barrier,  as  a  function  of  an  applied  reverse  biasing  voltage.  With  such 
a  model,  it  is  suggested  that  reverse  current  calculations  for  a  p-type 
Pt-Si  barrier  would  yield  information  imix>rtant  to  the  solution  of  this 
fundamental  device  problem. 
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Appendix  A 


computer  Program  Listing  For  Calculating  Single  and  Two-Carrier 
Multiplication  at  Specified  Voltage  Increments 


Subroutine 

Page 

MAIN 

60 

grid 

62 

BORDER 

65 

NITIAL 

68 

DEPLTE 

70 

grelax 

71 

POISSN 

72 

DNSITY 

73 

CHARGE 

74 

STONE 

75 

EFIELD 

83 

AVLNCH 

85 

VGUESS 

90 

EQULIB 

91 

INDEX 

93 

EFORCE 

94 

TRAJEC 

95 

JNTERL 

99 

TWNSND 

too 

OUTPUT 

101 

59 


C  Nf^IH 

C 

C  EXECUTIVE  PROCRfiM 

C 

C  INITIhILIZE  PLL  f^RRPYS  TO  ZERO  UITH  0  BLOCK  DhTO  SUBPROCRi^M 

C 

BLOCK  DUiTR 

C 

COHMOH-  BRRf^YS-  BDUMN  IDUNNY061  ) 

C0Ht10Ny  C0EFF/C0UNMY<  4931  > 

DBTB  BDUMNY- lZ493tO.  .%  IDUMI1Y.^961t0/ 

DP  TY)  CDUNNYy'493l.te .  EO  ' 

END 

C 

C 

C 

COnilON.'BRRBYS-FSU  31 ..  31  EDENS':  31  >  31  )  .•  HD£NS':31 ..  31  VF',  31..31  ).■ 

&D(  31 , 31  £■<;'  31 ..  31  F'i  31 ..  31  31 ..  31  )>  Q<:31 ..  31  31  ■  31  >.■ 

&DEL  TP(  31 . 31  ■>..  ESUBX'l  31 ..  31  ESUBY-:  31 31  IDENT(  31 ..  31  ) 
C0MM0Nn'0EFF.-HSTH':31 ..  31  .>.•  HNEST'lZl 31  WCNr/?<  31 ..  j  2  .  HEFSf-,  31 ..  J1  .).■ 
$,HNRTH(  31 ..  31  XDL  T(  33  >..  YDL  T<  33  XPOS<  31  YPOS(  31  ) 
C0(1t10N.-REBLy'XNIDTH.-  YDEPTH..  BRRIER.-  EGPP,  TMPTR..  PCCPTR.  UBL  TIN..  UOL  T,. 

&  TRNSIC..  QSS..  XO:  YO..  RPD..  XDEL  TP,  YDEL  TP 
COMMONy-INTGRy  inPX,  JNPX..  IXNDTH,  JYDPTH 
CONNON/CNTRLy-ITMPX..  ITRNPX..  CONURG..  SIDL  T 
CONMON.-NRriLZE-'DNSNRN,  FSINRN..  DSTNRN,  BL  TZtIN 
COtinON,-SNGLE  -  iJOL  TO,  DL  TUL  T,  NOOL  T,  KOUTFT 
COtlHONySN  TCH.  -  NDOPE 
C 

DIMENSION  TITLE  >1 54  .) 

DIMENSION  XFPTH':  1O0..3),  YEPTH-:  lOO,  3 ET(  lOO,  3.) 

C 

NPMELIST.-'GEOM.-XNIOTH,  YDEPTH,  IMPX,  JMPX,NXNDTH,NYDPTH, 

&XDEL TP, YDEL TP, RPO 

NPMEL  IST.--PRMTRS,-  PCCPTR,  BRRIER,  QSS,  TMPTR 

NPMEL  IST-'CONTRL-'I  TMPX,  I TRMPX,  CONORG,  SIDL  T,  PODLT,  UL  TDL  T,  KNTMPX 
NPMEL  1ST.' SINGLE.- UOL  T0,  DL  T'JL  T,  NUOL  T,  KOUTPT 
NPMEL  I S  T-'SNI  TCH.-'  NDOPE 
C 

100  REPD(5,GE0M.) 

REPD'15,PRMTRS) 

REPD':5,C0NTRL.> 

REPD< 5,  SINGLE.! 

REPD’!  5,  SNITCH.) 

REPD'l  5, 1 000 .)  <;  TI TLE-:  I .),  1=1 , 54 .) 

1 000  FORMP  T(1$P4  1 SP4  / 1 SP4  > 

IXNDTH=NXNDTH 
JYDP TH=JMPX~NYDP TH+ 1 


30X,  1$P4,  5X,  'SUMMPRY 


NR  I  TE'l  6 ,101 0  XT  I TL  E-.  1),  1=1, 54 .) 

1010  FORMPTdHl ,  BOX,  30X,1SP4, 30X,  1SP4, 

&0F  INPUT  DPTP 

NR  I  TE'l  B,  1 030 .)  XNID  TH,  YDEP  TH,  IMPX,  JMPX,  NXND  TH,  NYDP  TH, 

&XOEL TP, YDEL TP,  RPD 

1030  F0Rt1PT<  1H0,5X,  '  NPMEL  IST-'GEOM  -  XNIDTH=  ' ,  1  PE  1 0 . 3, 3X,  ’  YDEPTH=  ' , 
&1PE10.3, 3K,  ' IMPX= ' , 13, 3X,  •JMPX= ' , 13, 3X,  'NXUDTH^ ' , 13, 3X, 

&  '  NYDP  TH=  ' ,  13, 3X,  '  XDEL  TP=  ' ,  1  PEI  0 . 3,  BX,  '  YDEL  TP=  ',1PE10. 3, 3X, 
&  •RPD='  ,  lPE10.3,y> 
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URITE(6:..  1O30>(^CCFTR..BRRIER..QSS..  TNFTR 
1030  FORMOT<  1H0>5X..  ' NONEL  1ST.  FRMTRS  OCCFTR=  ' IFE 10 . 2 ..  3X,  ‘BRRIER 
&1FE10  2..2X..  '(fSS=' ..  IFEIO  2,2X.-  '  TNFTR=  '  •  IFEIO  2) 

NR  I  TE<  6. 1 040 .)  I TNOX:  I  TRNfiX..  CONORG..  SIDL  T..  OUDL  T..  UL  TDL  T.. 
&KNTrii4X 

1040  FORNOT<  1H0.-5X..  'NONELIST  CONTRL  ITI'li4X=  ' 13..  2X.  •ITRMi4X='.. 

&  13..  2X..  '  COHORG=  '.-IFEIO  2, 2X..  '  SIDLT- '  .  IFEIO .  2.. 

EX..  'OUDL  T=  ' ..  1FE10.2..2X,  ‘  UL  TDL  T=  ' ..  IFEIO .  2..  2X..  'KNTNOX=  ' ..  14.. 
NR  I  TE<  6..  1  050  >  UOL  TO ..  DL  TUL  T ..  NUOL  T..  KOU  TF  T 
1050  FORnBT(  1H0^5X..  'NBNELIST.  SINGLE.  UOLTO=  ' ..  IFE 10 . 2 ..  2X,  •DLTULT= 
S,1FE10.2..2X.  'NUOLT='..  12. 2X.  'KOUTFT^'..  I2.'-> 

NRITE’iE..  1060:^  NDOFE 

1060  FORN0T<  1H0..5X..  ' NNNELISTySNITCH-  NDOFE=  ' ..  12.. .  ) 

C 

COL L  NUL NCH<  UL  TDL  T..  FUDL  T..  XFO  TH,  YFF  TH..  E T..  KN TNOX  > 

GO  TO  100 
END 
C 
C 


SUBROUTINE  GRID 
C 

C  SETS  UP  THE  GRHDEU  LATTICE  &  COtlPUTES  THE  FINITE-DIFFERENCE 
C  COEFFICIENTS  FOR  PSI . 

C 

COmONy  HRRHYS-PSI<  31 ..  31  EDENS':'  31 ..  31  HDENS':  31  .■  31  >..  B(  31 31 
&D<  31 ..  51  X.  31 ..  31  ■>..  F<  31  .•  31  >,  31 ..  31 Q<  31 ..  31  QHREH<  31,31  >. 

&DEL  TH(31 , 31  )..  ESUBN(31 , 31  ESUBY<31 , 31  >,  I0ENT<31 , 31  > 

COMMON.  COEFFyHSTH>:  31 ..  31  HNEST(31 , 31  >,  HCNTR':  31  .■  31  ),  HEHST(31 , 31 
&HNR  TH<  31 , 31  .).■  KDL  T<  32  ),  YOL  T<  32  .).■  NPOS<  31 YPOS<  31  > 

COMMONy  REHL.yXUIDTH ,  YDEPTH,  BRRJER..  EGHP,  TMPTR..  HCCPTR,  UBL  TIN..  UOL  T, 

&  TRNSIC..  QSS..  SO..  YO..  RHO,  XOEL  TH,  YDEL  TH 
COMMOH.  INTGR.  INHX..  JNHX..  IXUDTH..  JYDPTH 
COMMONy  CNTRL.  ITMHX..  ITRMHX,  CONURG..  SIOL  T 
C.OMMONy  NRMLZE.-DNSNRM..  PSINRM,  DSTNRM,  BL  TZMN 
COHNONy'RSCHLEy'  RSFCTR 
C 

C  FIRST  TRENT  THE  CORNER  REGION  BOUNDED  BY  XNIDTH  &  YDEPTH. 

C 

inX=IXNDTH-l 
X=XDELTN 
KEY=1 
GO  TO  200 

1 00  XDL  T<  2  .)=XNID  THWL  T 
DO  110  I=3,IXI>iOTH 
1 1 0  XDL  T(  I  >=XDL  T':  I  - 1  >*XDEL  TN 
I MX=JMNX- JYDPTH 
.X=YDEL  TN 
KEY =2 
GO  TO  200 

1 20  VOL  T>:  JMNX  >=YDEPTHWL  T 
DO  130  3=^2, 1  MX 
JJ=JMNX-H-J 

1 30  YDL  T<  JJ  .)= YDL  T<  JJ+ 1  .)*  YDEL  TN 
C 

C  NEXT  TRENT  THE  REGION  EXTERNNL  TO  THE  CORNER  REGION.  THIS  REGION 
C  EXTENDS  1.25  DEPLETION  NIDTHS  TO  THE  RIGHT  OF  X=.YUIDTH,  NND 
C  BELON  Y=YDEPTH.  USE  THE  METHOD  OF  SECNNTS  TO  DETERMINE  THE 
C  MULTIPLIERS  NNNLOGOUS  TO  XDELTN  &  YDELTN  LENDING  TO  N  SMOOTH 
C  TRNNSITION  IN  THE  LNTTICE  SPNCINGS  NT  THE  INTERFNCE  OF  THE 
C  TNO  REGIONS. 

C 

KEY=3 

KEO=I 

CC=.XDL  T<  IXUDTH >y'<  1 . 25*RSFCTR> 

XI  ^1  . 

IMX=IMNX-IXUDTH 
Yl=<  1 I  MX-CO'CC 
GO  TO  230 

1 40  XDL T< IMNX )= 1 . 25*RSFC TR*DL T 
DO  150  1=2. I MX 
II=IMNX*I-I 

1 50  XDL T< I I >=XDL T< II+l >*X 
KED=2 

CC=YDL  T<  JYDPTH+1  >y'<  1 . 25HRSFCTR) 

Xl=l. 
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IMS=JYDFTH-i 

Yl  =  {  1  .  ■■  I nx-co  -'cc 
GO  TO  230 

1 60  YDL r< 2 )= 1  25tRSFC TRtOL T 
DO  130  J=3-JYDPTH 
1  30  YOL  T(  J  >=  YDL  T(  J- 1  )tX 
XDL  T<1)=XDL  T<2> 

XDL  Tk  IMOX-H  )=XDL  T<  IN0X> 

YDL  r<  l  .>=YDL  T(2) 

YOL T( JMOX* 1 )=YDL T( JNOX ) 

C 

C  FINITE-DIFFERENCE  COEFFICIENTS 
C 

DO  135  I=1..IM0X 
DO  135  J=1..JN0X 
XOU=< XDL T< I >*XDL T< I +1  > )y2 . 

Ym.i=(  YDL  T<  J  HYDL  T<  J+ 1 .)  >.--2 . 

QOREN(I.-J)=XhtOtYOU 
HSTH(  I ..  J  )=XOU-  YDL  Tk  J  ) 

HNESTk  I..  J )=YO(J..-XDL  T<  I  > 

HEPS  T<  I ..  J  )=  YOO-  XDL  T<  I-i-l  ) 

HNR  TH<  I ,  J  )=XOO.-  YDL  T<  J+ 1  ) 

1  35  HCN  TR (  I ..  J ) =-< HS TH<  I..  J)+ HUES T(  I J .) + HEN S  T(  I ..  J  > + HNR  TH<  I .  J  >  ) 

C 

C  THBULHTE  THE  X  &  Y  COORDINATES  OF  THE  LATTICE. 

C 

XFOS(  1  ->=0 . 

YF0S(JNAX.)=0. 

DO  ISO  1=2..  IN  AX 
ISO  XFOS<  I  .)=XFOS<  I-l  .^^XDL  T<  I .) 

£10  190  J=2..JNAX 
JJ=JNAX-H-J 

1 90  YF0S(  JJ  YF0S<  JJ*  1  ) + YDL  T<  JJ*  1  .) 

GO  TO  230 
C 

C  INSTRUCTIONS  200  THROUGH  220  ARE  A  SUBPROGRAM  FOR  CALCULATING 
C  THE  N I BEST  NORMALIZED  INCREMENT  DLT. 

C 

200  EPSLON-l.-X 

IF(  EPSL0N.lt.  1  .E-3.>  GO  TO  210 
DL  T=<  1  .  1  .  -Xt*IMX) 

GO  TO  220 

210  DL  T=1 .  -(  IMX-1  >tEFSL0N.-  2. 

DLT=1.  .■■■(  I  MXt  DLT) 

220  GO  T0<  1 00..  120..  250  )..  KEY 
C 

C  INSTRUCTIONS  230  THROUGH  260  ARE  A  SUBPROGRAM  FOR  FINDING  DLT 
C  USING  THE  METHOD  OF  SECANTS. 

C 

C  FIRST  INCREMENT  XI  &  .X2  UNTIL  Y1  &  Y2  HAUE  OPPOSITE  SIGNS. 

C 

230  X2=Xl-0.e2 

Y2=(  1 .  -X2)y'<  1 .  -X2ttINX) 

Y2=Y2tX2t$< IMX-1 ) 

Y2=< Y2-CC)/CC 
IF(YltY2.LE.O.  )  GO  TO  240 
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XI 

Y1=Y2 
GO  TO  230 

METHOD  OF  SECONTS 

240  DEN=y2~Yl 

.V=  ( XI  *  Y2-X2*  Y1  )■  DEN 
GO  TO  200 

250  Y=DL  T*X*t<  IHX-1 .) 

Y=<  V-CC.)/  CC 

I F( 0BS(Y>.LT.0.0l)  GO  TO  260 

X1=X2 

Y1  =  Y2 

X2=X 

Y2=Y 

GO  TO  240 

260  GO  T0< 140, 160),KED 
2F0  RETURN 
END 
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SUBROUTINE  BORDER 
C 

C  ASSIGNS  BOUNDARY  CONDITIONS  BY  MODIFYING  THE  FINITE- 

C  DIFFERENCE  COEFFICIENTS 

C 
C 
c 

COMMON 'HRRHYS  'FSK  31 31 EDENS<  31 ..  31  HDENS(  31 ..  31  .).■  B<  31  .■  31 
&D<31..31  >,E<31.>31  ).>F<31,31  ).>H<31..31  ).Q<31.‘31  OOREO':  31 ..  31 
&DEL  TH<  31 ..  31 ESUBX'i  31 ..  31  ).■  ESUBY<  31 ..  31  ).■  IDENT<  31 31  ) 

COMMONy  COEFF  -  HSTH<  31 31  HNESTi  31  •  31  ),  HCNTR<  31 ..  31  .).■  HEHST(31  .•  31  >.■ 
&HNR  TH(  31 , 31  XDL  T<  32  >..  YDL  T<  32  >..  XPOS<  31  ).•  YFOS<  31  > 

COMMONy  RERL-  XHIDTH..  YDEPTH,  BRRIER..  EGOR..  TMPTR,  HCCPTR..  UBL  TIN,  UOL  T, 

& TRNSIC, OSS, XO: YO: RHD ■ XDEL TO, YDEL TO 
COMMON  ■INTGR  IMOX.-  JMHX,  IXNDTH,  JYDFTH 
COMMON.^CNTRL.  I TMHX,  I TRMRX,  CONURG,  SIDE  T 
COMMON-'NRMLZEy'DNSNRM,  PSINRM,  DSTNRM,  BL  TZMN 
C 

C I RCL  E<  X>  Y:  R  )=XtX*  Y*  Y~R.*R 
FOIN T< Z, R )=SQR T< R*R-Z*Z > 

C 

DO  SO  1=1, I  MO X 
DO  90  J=1,JM0X 
PSK  I,  J>=0. 

HDENS<  I  . ^J  )=0. 

ESIIBX<  I,  J)=0. 

ESLIBY<  I ,  J )=0 . 

SO  IDENT<  I,J>=0 

C  THE  LONER  BORDER,  NHERE  FSI=d 
C 

DO  100  I=1..IM0X 
HSTH< I, 1 >=0. 

HNEST(  I,  1  )=0. 

HCNTR< I, 1 )=1  EO 
HEOSTd,  1  )=0. 

HNRTH< I, 1  >=0. 

100  Q<I,1)=0. 

C 

C  THE  RIGHT  BORDER,  NHERE  PS  1=0. 

C 

DO  lie  J=1,JM0X 
HSTH(  I MOX,J  .)=0. 

HNEST<  I M0X,J)=0. 

HCNTR<  INAX,J>=1  . 

HEOST<  IMOX,J  .y=0. 

HNRTH(  I M0X,J.)=0. 

110  Q(II10X,J)=0. 

C 

C  THE  UPPER  BORDER,  NHERE  DFSI,  DY=0. 

C 

DO  120  I=IXNDTH,IMOX 
HNRTH<  I,JNAX)=0. 

1 20  HS  TH<  I ,  JMOX  )=2 .  EO.*HS  TH<  I ,  JMOX  > 

C 

C  THE  LEFT  BORDER,  NHERE  DFSIyDX=0. 

C 
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DO  130  J=1,JYDPTH 
HNEST<  l..J>=B. 

1 30  HEBST<  1 ,  J)=Z.  E0*HE0ST<  1 ..  J> 

C 

C  THE  CORNER  REGION 
C 

N0=SFOS< IXND TH )-RHD 
Y0= YPOS< JYDP TH )-RHD 
1=1 

140  J=JNHX-H 
150  J=J-1 

IF  <J.LT.JYDPTH)GO  TO  ISO 
IF  (XFOSU  )  .GT.X0)GO  TO  170 
160  HSTH(  I  ..J>=0. 

HNEST<  I..J)=0. 

HCHTR'i  I..  J)=l  .  E0 
HEHSTk  I..J>=0. 

HNRTH( I: J)=0. 

Q(  I. .J)=l  .  0 
IDENT<  I..J)=-1 
GO  TO  150 

1 70  IF( YFOS( J).LE.  YO )G0  TO  1 60 
C 

C  TEST  TO  DETERMINE  IF  THE  POINT  IS  EXTERNAL  TO  THE  CIRCLE. 
C 

XP=XPOS':  I  >-X0 
YP=yPOS'::j.)-Y0 
TS  TP=C  I RCL  E<  XP ..  YF..  RHD  ) 

IF<TSTP.LE.0.  .^GO  TO  160 
C 

C  FIND  THE  NEST  &  NORTH  DISTANCES  TO  THE  BOUNDHRY.  FIRST 

C  DETERMINE  NHICH  POINTS  ORE  HLSO  EXTERNAL..  IF  HNY . 

C 

XN=XFOS< I- 1 >-X0 

yn=yfoS':j-h  >-y0 

TSTH=CIRCLE<XH..  YP..  ROD) 

TSTN=CIRCLE<XP..  YN..  RHD.'> 

XN=XFOS( I-l> 

IF(  TS  TH  .LT.0.  )XH=X0->-FOINT<  YP..  RHD .) 

IFiTSTH.LT.O.  .)  IDENT':I.J)=1 
XH=XFOS< I >-XH 
YN=YP0S(J+1 ) 

IF(  TSTN.LT.  0.  .)YN=Y0+POINT(XP..RflD.'> 

IF<TSTN  LT.0.  >  IDENT<  I.J.)=1 

YN=YFDS(J.)-YN 

XHH=XDL T( 1)^100. 

YNN=YDL  T(J>.100. 

IF<  XH  LT.  XHH .  OR  YN.LT.  YNN )  GO  TO  1 60 
C 


C  MODIFY  HHEST  &  HNRTH,  TO  ACCOUNT  FOR  THE  CIRCULHR  BOUNDARY. 


c 

C  MODIFY  QOREO  TO  f^CCOUNT  FOR  THE  PORTION  (ASSUMED  H 
C  TRIHNGLE)  ECLIPSED  BY  THE  CIRCLE. 

C 

XI  =XPOS<  I  )-XDL  T(  I  .h'2 .  Ed 
Y1  =YPOS<  J )-YDL  T<  J+ 1  .>^2 .  EO 
XP=X1 -X0 
YP=Y1-Y0 

TS  rP::CIRCLE<  XP>  YP:  RHO  > 

C 

C  IF  <  rSrP.GE.0.  .)  HO  PREP  IS  ECLIPSED. 

C 

IF(TSTP.GE.0.  )G0  TO  150 
Y2=F OINT< XP ..  RPD  > *  Y0 
X3=P0INT<  YP..  RPD.)*X0 

QPREPi  /  J)=OPREP<  I,  J>-<  Y2-Y1  .)t<X3-Xl  .)y2  .E0 
GO  TO  150 
C 

C  INDEX  I  &  CONTINUE  UNTIL  I.GT.IXUDTH. 

C 

1S0  1=1+1 

IF<  I  .LE.  IXNDTH.)  GO  TO  140 
inpXX=IMPX-l 
DO  120  I=1..IMPXX 
DO  JS0  J=2,JMPX 

190  IF(IDENT<  I^J.).LT.0.>  PSI<  I .,  J  .)=!  .  0 
RETURN 
END 
C 
C 


bl 


SUBROUTINE  NITIOL 


FROUIDES  INITIAL  ESTINOTE  FOR  PSl<I.-J)  USING  CYLINDRIChiL 
COORDINATE  DEPLETION  THEORY 

COMMON  ARRAYSy-FSK  31 ..  31  >  ■  EDENS<  31  .■  31  >  ■  HDENS<  31  ■  31  '  •  £?(  3l  •  3l 
&D(  31 . 31  E(  31 . 31  F<  31 ..  31  ).■  H<  31 ..  31  >,  0<  31  31  )  ■  QAREA',  31 . 31 
&DEL  TA(  31 ..  31  )..  ESUBH<  31 ..  31  >  ■  ESUBY<  31 ..  31  >..  IDENTk  31 , 31  > 

COMMON.  COEFF.-  HSTH<  31 ..  31  >  •  HNEST<  31  ■  31  ).■  HCNTR<  31 31  ).■  HEhST>.  31  .■  31  ), 
&HNR  THi  31 ..  31  ),.  XDL  T<  32  ).■  YDL  T<  32  )  •  KFOS(  JJ  )..  YPOS<  3 !  > 

COMMON  REAL.  SNIDTH:  YDEFTH..  BRRIER,  EGAF..  TMPTR..  ACCFTR..  UBL  '^IN..  VOL  T .. 

&  TRNSIC..  OSS..  Xe..  Vtl..  RAD..  XDEL  TA..  YDEL  TA 
COMMON.-  INTGR.  IMAX:  UMAX..  IXNDTH.  JYDFTH 
COMMON.  CNTRL  I TMAX..  I TRMAX..  CONVRG..  SIOL  T 
COMMON.  NRMLZEy'DNSNRN>  FSINRM.  OS  TNRM,  BL  TZMN 


TRAD=RAD 

TXd=XO 

TYO=YO 

IF':  RAO.  GT.O.  .)  GO  TO  20 
TRAD=0.O5 
TXD=Xl.IIDTH-TRAD 
TYO=YDEFTH-TRAD 

20  IF(  RAD.  EQ.XNIDTH.  AND  RAD.  EO.  YDEFTH.)  GO  TO  120 

THE  HORIZONTAL  SHEATH  <:  TAPERED  TO  MATCH  THE  RADIAL  SOLUTION  AT 
THE  CIRCULAR  CORNER.) 

I  =  I 

1 00  RAD  1  =  TRAD-K 1 0  -  TRAD  .).*(  TXO-XFOS'.  I .)  ..V-'  TXO 
Y00=YDEFTH-RAD1 
JYDFTH 

CALL  DEFLTE<:X.RAD1  ) 
no  RD-XtRADl 
120  J=J-1 

RR=YPOS<J)-YOO 
IFTRR.GE.RD.)  GO  TO  130 

FSI<  nj.)=(RR-RD  ):i<RR-i-RD  ).-  2 . -RD.TRDtALOG':  RR  RD) 

GO  TO  120 
130  i  =  i-n 

IF<  XPOS(  I  ).GT.  TXO  )  GO  TO  1 40 
GO  TO  100 

THE  VERTICAL  SHEATH  (TAPERED  IN  THE  SAME  MANNER). 

140  IM=I-1 
J=JNAX 

1 50  RADl=TRAD-t-(  1 . -TRAD  >t<  TYO-YFOS(  J)  >.-  TY0 
X0O=XNIDTH-RAD1 
I=IKHDTH 

CALL  DEFLTE<X..RAD1  ) 

160  RD=!<*RAD1 

170  i=i-n 

RR-XPOS( I )-X00 


JS0 


190 


200 

210 

C 

C 

C 


220 

230 


240 


250 


IFkRR.GE.RD)  go  to  1S0 

PSI':  I..  J  )=<  RR-RD  )4< RR■^RD  .>■  2 .  -RD4RD*0LOG( RR-  RD  ) 

GO  TO  170 

J=J-1 

IF<YFOS<J).GT.TY0>  GO  TO  200 
GO  TO  150 
1=0 

J=JN0X 
GO  TO  210 
I=IN 

R0D1=TR0D 

THE  CIRCULAR  CORNER  SHEPTH 

ChiLL  OEFLTE<X..R0D1  :< 

RD=XtRhtDl 

I=l-H 

XF=XFOS':  n-TX0 
YF=VFOS( J )-TY0 
RR=SQR  r-:  XPtXP-t-  YF:t  YP  > 

IF(RR.LE.RhDI)  go  to  230 
IF(RR.GE.RD)  GO  TO  240 

PSK I ,  J  )=<  RR-RD  )*<  RR+RD  )  --2 .  -RDtRDtPL  0G<  RR-  RD  .> 

GO  TO  230 

J=J-1 

YP=YPOS(J)-TY0 
IF( YF.GE.RD)  RETURN 

IF( ROD . EO . XNID TH . PND . RhD . EQ .  YDEP TH >  GO  TO  250 


I=It1 

GO  TO 

230 

1=0 

GO  TO 

230 

END 
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SUBROUTINE  DEFL  TEk  S..  RNOt 
C 

C  FINOS  THE  OEFLETION  ROD  I  US  fRON  0  t-0  SOLUTION  OF  FO IS SON'S 

C  EQUATION  IN  CYLINDRICAL  COORDINATLS  RETURNS  S*RD  RAOl 

C 

RHSkS'<‘>1  -RAOItRADltK  k  1  J  *StStALUG<.  S  '  > 

t' 

C  FOR  RADI  GTO  J-  THE  METHOD  OF  St  CANTS  IS  USFD  TO  FIND  S 

C  FOR  RADI  LT.O  3.  A  METHOD  OF  SUCCESSIUE  APFROS I  MAI  IONS  NHICH 

C  IS  UERY  FAST  IS  USED  ^  THE  LATTER  FAILS  TO  CONUtRGt  NHEN  RADI 
C  ESCEEDS  0  5  > 

r 

IFiRADI  GT  0  3>  GO  TO  1 10 
Sl’iS  ^4  tRADl  >■■'<  4  tRADl  ' 

100  \=SQRT<k2  y  <  RADl  tRALU  '<-1  \  3 .  *ALOG<.  SI  t  >  ' 

Y=>RHSkS> 

IFlABSi.Y:>  LT  t  E-3>  RETURN 
S1*S 

GO  TO  100 
C 

C  METHOD  OF  SECANTS  FIRST  FIND  SI  &  CAUSING  Y]  VJ  TO  HAVE 
C  OFFOSITE  SIGNS.  THE  STARTING  FOINT  FOR  SI  DIFFERS  NHEN  RADI  GT 
C  BASED  ON  EMPIRICAL  KNONLEDGE  OF  THE  AFFROSIMATE  VAiUt  Oh 

C  THE  ROOT  TO  SPEED  UF  THE  SEARCH 
C 

no  IF<RADI  GT  0  S)  GO  TO  ICO 
Sl‘4 

YnRHS<.SI  ' 

GO  TO  ISO 
ICO  S1=C 

YnRHSK  SI  ) 

ISO  SC^SI-0  1 
YC^^RHSLSO 
YY’YltYC 

IF(YY  LT  0)  GO  TO  140 
St  rSC 
yi  =  YC 
GO  TO  ISO 

140  S‘(SltYC-SCtYI  '  <  YC-YI  ' 

,V  ' 

IF(  ABSk  Y>  LT  I  E-S  '  RE  TURN 

YnYC 

\.?*,V 

V,?»V 

GO  TO  140 
ENO 
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SUBROUTINE  OREL  NS 
C 

C  INPLENENTS  QiiNNEL'S  RELNSNTION  NLGORITHN  FOR  FSI 

C 

c 

c 

COMMON  NRRNYS  PSK  31 31  y.LDENS(31  .■  31  HDENSk  31 ..  31  P<  31 31 
&0(  31 ..  31  ).■  E(  31 , 31  V.  F<  31 , 31  ),  Hk  31 ..  31  )  ■  Q<  31 31  )>  QNRENk  31 . 3 1  >, 

S,DEL  TN(  31  31  > .  ESUBS<  31  ■  Ji  •  ESUBW  31  ■  31  IDENT<  31 31  > 

COMMON  COEFF  HSTH<  31 ..  31  V.  HNEST<31 . 31  >..  HCNTR^  31 . 31  HENST(31 ..  31  >,. 
HHR  THC  31 31  ),  SDL  T(  33  YPL  T<  33  >,.  XFOS(  31  >.■  YFOSi  31  ' 

COMMON.-RENL.  SUIDTH.  YDEPTH..  BRRIER.,  EGNP.'TMFTR,.  NCCFTR.  UBL  TIN.  UOL  T.. 
TRNSIC  ■  QSS:  SO..  YO..  ROD  .  .YDEL  TO..  YDEL  TN 
COMMON.  INTGR.  IMNS:  JMNS..  ISNDTH..  JYDPTH 
COMMON.-CNIRL  ITMNS.  1  TRMNS..  CONURG..SIDL  T 
COMMON.'NRMLZE  DNSNRN,  PSINRM .  OS TNRM.  BL  TZMN 
C 

OMEGN^l  6 
IT  =  t 

IMN\S=INNS-1 
100  DLJMS=0 

CULL.  DNSITY 
CULL  FOISi.N 
DO  no  1  =  1..  I  MOSS 
DO  no  J=3..JMNS 

DL  Tf1S=NMNSl  <  NBS<  DEL  TO'.  I  ■  J  .n  .  DL  TMS  ' 

PSl<  I..  J  )=FSI<  I  ..  J.>-^OMEGOWEL  TN<  I ..  J '> 

IF^PSU  I  .J).LT  0  '  psm..j>=o 
no  CONTINUE 
DUS=0 

DO  500  1=1 . I MOSS 
DO  500  J=3.JM0S 

IF\  OBS'.DELTN<  LE  OMS )  GO  TO  500 

DMS=OBS<  DEL  TN<.  I ..  J  )  ) 

11  =  1 
JJ=J 

500  CONTINUE 

NRl  TE(  6..  5000  )  DEL  TN<  1 1 .  JJ  Y.  1 1 .  JJ 
5000  FORMNTk  1H0..5S.  'NOS  DELTN  IN  GRELNS  IS  ' ..  IRE  11  3 .  1 S . 

&'NT  COORD INNTE  (  '  .■  13..  ' .  13..  '  > ' 

1F<DLTMS  LE  CONURG  ^  GO  TO  130 
1T=1  Tn 

IF(IT  GT  ITMNS)  GO  TO  130 
GO  TO  100 

130  UR1TE<6.  1000.'>  IT 

1000  FORMNTk  1H0..5S..  15,  •  ITERNTIONS  NERE  REQUIRED  IN  GRELNS', 

RETURN 

I  30  NR  I  TE<  E  ,  1010 '>  Dl  TMS .  CONURG 
1010  FORMNTk  1H0,5S,  'MNSIMUN  ITERNTIONS  NERE  ESCEEDED  IN 
&GRELNS.  DLTNS=' , IPEIO  3,'  C0NURG= ' ■ IFEIO  3,  ■  > 

STOP 

END 

C 

C 
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SUBROUTINE  FOISSN 
C 

C  SOLOES  POISSONS  EQUATION  USINO  STONES  METHOD 

C 

C 

c 

COMMON  BRRHVSy  PSK  31 31  EDENSi  31 , 31  >  ■  HDENS<.  31 31  >..  B<31  ■  31  .)  . 

&0(  31  .■  31  ' .  E< 31 ..  31  >..  31 31  H\  31 ..  31  ih  31  •  31  >..  QHREH( 31  .■  31 

&DEL  TH<  31 ..  31  >..  J/ 31  >  ■  ESUBY'.  31  51'.  IDENTk  J]  .  J1  ) 

COMMON.  COEFF.HSTHk  31..31  HNEST<  3 1  .•  3 1  >..HCNrR<.  31  31  HEHST^  31 3 1  >, 
&HHRTH(  31 .31  SDLT<  33  YDLT\  33>...\F0S'.  31  YFOSi.  31  ' 

COMMON^  REHL.  SNIOTH-  yOEFTH..BRRIER.'  ECHF,  TMFTR,  HCCFTR,  OBL  TIN..  OOL  T. 

&  TRNSIC .  QSS..  SO  ■  YO .  ROD  ■  SDEL  Th  ,  YOEL  TO 
COMMON.  INTCR-  IMHS..  JMHS.  ISUDTH,  JYOFTH 
COMMON.  CNTRL  I  TMHS  ■  I TRMHS..  CONORG..  SIDL  T 
COMMON.  HRMLZE  ONSNRM,  FSINRM,  DSTNRM..  BL  TZMN 
C 

DItlENZR  TZRGEIK  31 31  > 

C 

DO  100  I=1.IMHS 
DO  100  J=1.JMHS 
FSINEl-H  I..J>=^FSI<  I..J.> 

B<  I  .J)=HSTH<  I  .J> 

0<  I..J)=HNEST<  I..J'> 

E(I..J)=HCNTR(I..J) 

F(I..J.)=HEHST(I..J) 

100  H(I ..  J  )=HNRTH(  I ..  J .) 

COLL  CHORGE 
C 

C  I  TERN  TIDE  STONE'S  METHOD 
C 

IST0NE=0 

ITR=1 

110  IST0NE=IST0NE^-1 

COLL  STONE<  ISTONE,  IMOS..  JMOS- RESID..  FSINEN) 

IF(RESID.LE.SIDLT)  GO  TO  120 

ir/?=irp+j 

IF(  ITR  LE  ITRMOS.)  GO  TO  110 
NRITElB..  1000.> 

1000  FORMOTi  IHO..  IS:  'MOSIMUM  ITEROTIONS  E.SCEEDEO  IN  FOISSN'  ,  -  ) 

STOP 

120  DO  130  1=1: IMOS 
DO  130  J=1:JM0S 

1 30  DEL T0< 1 : J )=PSINEN< 1 , J )-FSI< I:J) 

NR  I  TE(B:  5000)  ITR 

5000  F0Rn0T(2S:.-.':2S:  15:  IS:  'ITEROTIONS  HERE  REQUIRED  NITH  STONES  METHOD 
&IN  FOISSN') 

RETURN 

END 


SUBROUTINE  DNSITY 

USES  BDLTZNNNN  DISTRIBUTIONS  FOR  THE  HOLE  &  ELECTRON  DENSITIES. 


COMMONyNRRBYSy  RSK  31 ..  31  >.•  EDENS(  31 , 31  ),  HDENS<  31 ..  31  B<  31 ..  J]  >, 

&D(  31 , 31  ),  E<  31 . 31  >,  F<  31 , 31 H<  31 ..  31  >..  Q<  31 ,31  QNREN<  31 , 31  >, 

&DEL  TB(  31 , 31 .),  ESUBS<  31 , 31  ),  ESUBY<  31 , 31  >,  IDENT<31 , 31 .) 

CONNONyCOEFF  ■  HSTH< 31 , 31  >,  HNEST< 31  .•  31  >,  HCNTR<  31 , 31  ),  HEBST< 31 , 31 
&HNR  TH(  31 ..  31  >,  SDL  T<  32  ),  YDL  T<  32  ).•  SFOS(  31  ).■  YFOS(  31  ) 
CONNON.-REFL.-XNIDTH,  YDEFTH,  BRRIER,  EGNF,  TNFTR,  FCCFTR.  UBL  TIN,  UOL  T, 
& TRNSIC, QSS, SO, YO, ROD, SDEL TO, YDEL TO 
COMMON.- INTGR-  INOS,  JMOS,  ISNDTH,  JYDFTH 
COMMON.  CNTRL.  ITMOS,  ITRMOS, CONURG, SIDLT 
COMMON.-HRMLZE-  DNSNRN,  FSINRM,  DSTNRM,  BL  TZMN 

EFOCTR=FSINRn.  BL  TZMN 

DO  130  I=1,IM0S 

DO  130  J=1,JM0S 

IF(  IDENT<  I,J>  LT  .0)  GO  TO  130 

ESPNT=FSI<  I ,  J .HEFOC TR 

IF(ESFNT.GT.SC.  )  GO  TO  100 

HDENSi  I .  J  >=1 . 0.-  E.^F< ESFNT  ) 

GO  TO  110 
100  HDENS< I,J>=0. 

110  UOLT=FSINRM-UBLTIN 

ESPH  r=2 .  *0L  0G<  TRNSIC-  DNSNRM ,)+(  PSINRMtFSU  I ,  J  )-UOL  T  ).•  £?/.  TZMN 
IF(ESPNT.LT.-SO.  )  GO  TO  120 
EOENS<  I ,  J  i^E.XF<ESFNT  ) 

GO  TO  130 
120  EOENS<  I  ■  J  .)=0. 

130  CONTINUE 
RETURN 
END 
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SUBROUTINE  CHBRGE 
C 

C  CRLCULRTES  THE  CHHRGE  TERNS  IN  GUNNELS  HLGORITHN 
C 
C 
C 

CONNON.  HRRHYS^'PSK  31..31  >.-  EDENS<  31..31  >..  HDENS<  3  !.■  3 1  B<  31-31  >.. 

&D(  31 . 31  >,  E<  31  >  31 F<  31 ..  31  H<  31 ..  31  >.•  Q<  31 31  )..  QHREHC  31 ..  31 
&DEL  TB(  31 ..  31  ESUBS<  31 . 31  ESUBYi  31 ..  31  >..  IDENTi  31  .■  31  ) 

CONNON.  COEFF  HSTH< 31 31  >..  HI>JEST(31 , 31  .>,  HCNTR<  31 31  HEHST(31  .■  31  >  ■ 
&HNRTH(  31 ..  31 XDL  T(  32  >..  VOL  T(  32  .>  ■  XFOS<  31  YFOS<  31  > 

CONNON.  REFL  XUIDTH  .  YDEFTH..  BRRIER,  EGHF,  TNFTR  .  HCCFTR,  UBL  TIN,  VOL  T, 

& TRNSIC, QSS, XO, YO, RHD, XDEL TO, YOEL TO 
CONNON.  INTGR  INOX,  JNOX,  IXklDTH,  JYDFTH 
CONNON.  CNTRL  I TNOX, I TRNOX, CONURG, SIDL T 
CONNON.'NRNLZE  'DNSNRN,  FSINRN,  OSTNRN,  BL  TZNN 
C 

OLFHO=FSI NRN  'BL  TZNN 

INOXX=INOX-l 

DO  100  I=l,INOXX 

DO  100  J=2,JN0X 

IF{  IDENT<  I,J).LT  0)  GO  TO  100 

Q<  I,J)=1 .  *EDENS<  I,J>-HDENS<  I,J>-OLFHOt(EDENS<  I  ■  J  J.) 

&FSU  I,J) 

Q(  I ,  J  >=2 .  tlK  1 ,  J  )tQOREO<  I ,  J .) 

f<  I,  J>=E<  I,J)-2.  t(EDENS<  I,  J)*HDENS<  I,  J > ).tOLFHO.tQORLO<  :  ■  J> 

100  CONTINUE 
C 

C  MODIFY  0  OT  THE  OFFER  BORDER  TO  INCLUDE  SURFOCE  CHORGE  QSS. 

C 

I1=IXNDTH*1 
DO  110  I=II,INOX 

1 1 0  Qk  I ,  JNOX  )=Q<  I ,  JNOX  .)-QSSt<  .XDL  T<  I  ).^XDL  T<  I -H  )  ) 

RETURN 

END 

C 

C 
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SUBROUTINE  STONEi  ISTONE.-  JNOX..  KNOX,  RESID.  T> 
inPLEHENTS  STONE'S  METHOD  FOR  MATRIX  FACTORIZATION 


COMNONy  ARRAYSy  FSK  31 ..  31  EDENS<  31 . 31  >..  HDENSi  31 . 31  B<  31 31  ), 

&D<  31 . 31  ),  E(  31 ..  31  F'i  31 ..  31  .>  •  Hi  31 ..  31  Q<  31  .■  31  >..  QAREAi  31 ..  31 
&DEL  TAi  31  .•  31  ),  ESUBXi  31 ..  31  >..  ESUBYi  31 31  ).■  IDENTi  31 31  > 

COMMONy'CDEFF.  HSTHi  31 ..  31  )..  HNESTk  31  ■  31  HCNTRi  3 1 ..  31  ) ,  HEASTi  31  •  31  >,. 
&HNRTH(  31 ..  31  XDL  T<  3Z  >..  YDL  Ti  3Z XFOSi  31  YFOSi  31  .) 

COMMON.  REAL  - XNIDTH..  YDEFTH..  BRRIER.-  EGAF..  TNFTR,  ACCFTR..  UBL  TIN,  UOL  T .. 

&  TRNSIC,  QSS, XO, YO, RAO, XDEL TA, YDEL TA 
COMMON-CNTRL  - 1 TMAX, I TRMAX, CONURG,  SIDL T 
COMMON.-HRNLZE  DNSNRM,  FS I  NR  M,  DSTNRM,  BL  TZNN 

0 1  MENS  I  ON  Ti UMAX, K MAX ) 

DIMENSION  EEi  31 , 31  FFi  31 ..  31  'A  31 ..  31  ),  ALFHAi  1 S  ) 

DEFINE  FREQUENTLY  USED  FUNCTIONS.  iN  FOR  FORNARD  K..R  FOR  REUERSE). 

BNiBDUMMY..  EDUMMY )=BDUMMY  i  1  .  EO+ALFHiEDUMMY ) 

CNiDDUMHY,  FDUMMY >=DDUMHY.  X  1  EO^^ALFH■tFDUMMY .> 

DNl i EDUMMY, FDUMMY >=BB*i ALFHtEOUMMY-FDUMMY ) 

DHZi FDUMMY. EDUMMY >=CCti ALFHiFDUMMY-EDUMMY > 

ENi  FDUMMY..  EDUMMY  .)=<  FDUMMY-AL FHtBB*EDUMMY OP 
FN(  HDUMMY..  FDUMMY  >=<  HDUMMY-AL PHtCCtFDUMMY  >  •  00 
BRiHDUMMY, EDUMMY  ?=HDUMMYi 1 . EO+ALPHtEDUMMY ) 

CRiDDLIMMY..  FDUMMY )=DDUMMY-  i  1  EO-f-ALFHtFDUMMY > 

DRli EDUMMY: FDUMMY )=BB*i ALPHiEDUMMY-FDUMMY ) 

DRZi FDUMMY. EDUMMY )=CC*i ALFH*FDUMMY-EDUMMY > 

ERi  FDUMMY..  EDUMMY  )=i  FDUMMY-AL  PH  tBBtEDUMM  V  >  00 
FRi BDUMMY: FDUMMY >=i BDUMMY-ALPHtCC*FDUMMY >00 

ISTONE  FLAGS  UHICH  ALPHA  TO  USE  AND  NHETHER  FORNARD  i I  STONE  ODD) 
OR  REUERSE  i ISTONE  EUEN )  INDEXING  OF  K  IS  TO  BE  IMPLEMENTED. 

IFi  ISTONE.  GT.  IS)  IST0NE=1 
ALFH=ALPHAi ISTONE ) 

JMAXX=JMAX-1 
KMMXX=KMAX-1 
J=2fi  ISTONE -Z) 

IFi J.EQ. ISTONE)  GO  TO  170 

ISTONE  IS  ODD.  INDEX  K  FORNARD 


THE  CORNER  POINT  i  1 ..  1  ) 

DD=E(  1 ..  1  ) 

EEl 1:1 )=Fi 1 : 1  >00 
FFi  1 ..  1  )=Hi  1 ..  1  >-00 

R=Q(  1  :  1  )-i  Ei  1  :  1  )*  Ti  1  :  1  )i-Fi  1  :  1  )t  Ti  Z :  1  >+H<  1  :  1  >.«  Ti  1  :  2  )  ) 
RR=ABSiR) 

RESID=RR 
U(  1 ,  1  )=R.  DO 
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c 

c 

c 


IFi  i^BS(  U<  i..i)>.LT.l.E-7)  (K 1 ..  1  >=6 . 

THE  ROH  K=lj^E>iCLUDING  THE  RIGHT  CORNER  POINT. 


DO  too  J=2,JNHXN 

JP=J-H 

JN=J-1 

CC=CN<  D<  J,  1 FF<  JN:  1 .) .) 

DD=E(\h  1  )+0N2(FF(JN,  1  )..  EE(JN.  1 .)  .) 

EE<J..  I  )=F<J>  1  .).  D0 

FF(  J..  1  >=FN<  H(  J,  1 FF<  JN..  1  )  ) 

R=Q(J..  1  1  .HT(JN.- 1  .>*E<J.’  1  )tT<J.  1  )+F<J>  1  )*T(JP,  1  1  >t 

&T<  J..2>? 

RR=HBS<R.> 

IF  (RR.GT.RESID)  RESIO^RR 
U(J..  1  >=<R-CCni(JN>  1  )>.-DD 
1 00  IF(  HBS< (A  J.  I  .).).LT.  1 .  E- 7  >  0<  J..  1  >==0 . 

C 

C  THE  CORNER  POINT  (JNPX..1> 

C 

JH=JNHXX 

CC=CN(D<J..  1 FF(JN.-  1  .).) 

DD=E<J.- 1  >+DN2<FF<JN.  1  .),EE(JN,  1  >> 

EE<  J..  1  ,>=0 . 

FF(J,  1  )=FN<H<J,  1  FF<JN>  1  .)  .) 

R=Q(J.- 1  1  )*T<JN..  1  )*E(J.- 1  .y*T<J..  1  .)+H<J,  1  >il:T<J.2)> 

RR=HBS(R> 

IF(RR.GT  RESID.)  RESID=RR 
U(  J.  1  .>=<  R-CCnf<  JN:  1  .) >.-DD 
IF< HBS< (A  J.-  1  )).LT  1  .E-7)  U<  J,  1  .>=0 . 

C 

C  HLL  RONS  EXCEPT  RON  KNHX 

C 

DO  120  K=2.-KNHXX 
KP=K-H 
KH=K'-1 
C 

C  THE  LEFT  BORDER  POINT 

C 

BB=BH<B<  l  ..K>..EE<  l..KN>> 

DO^EC  1 ..  K  >*0N1  <  EE<  1 ..  KN  ) ..  FF<  1 ..  KN  )  ) 

EE(  1 C  .y=EN<  F<  1 ..  K EEC  1 .  KN  ) 

FFC  l..K)=H<  l..K>.-DD 

R=Q(  1 K.y-(B<  1 ..  K.>tT<  1 ..  KN.y+E(  1  .•  K.ytT(  I ..  K >+FC  1 K)*T<2,  K)*H<  1 ..  K >* 
&T<1..KP>> 

RR=HBS<R) 

IF(RR.GT.RESID)  RESID=RR 
(A  I ..  K  .)=<■  R-BB*0<  1 ..  KN  >  .y.  DD 
IFC HBSC (A  1 , K .>.y.LT.  1  .E- 7 )  (A  1 .. K )=0 . 

C 

C  THE  ROH  K  EXCLUDING  THE  RIGHT  BORDER  POINT. 

C 

DO  110  J=2.JNPXX 

JP-J-H 

JH=J-1 


76 


BB=BN<  B<  J:  K  > .  EE<  J..  KN  )  > 

CC=CN(  D(  J:  K FF-;  JN..  K  >  > 

DD=E(  J:  K  >*DN1  (  EE(  J.<  KN  >..  FF(  J..  KN  )  )*DN2<  FF(  JN..  K EE<  JN..  K  )  ) 

EE<  J:  K  >=EN<  F<  J:  K  >..  EE'i  J..  KN  >  > 

FF<  J:  K  )=FN<  H<  J .  K  > .  FF<  JN..  K .) .) 

R=Q(  J,  K .)-(  B<  J..  K  T<  J..  KN  )*D<  J..  K  >*  T<  JN,  K  )*E<  J,  K  >t  T<  J,  K  .>+ 

&F(  J..  K  .>*  T<  JP,  K .>*H(  J,  K  .) .*  T<  J,  KF .) 

CC-iiOCf  P  V 

IF(RR. GT. RESID)  RESID=RR 
V(  J,  K  >=<R-BB  tU<  J,  KN  .>-CC*U(  JN,  K  >  >  DO 
1 1 0  IF(  NBSl  U<  J,K)).LT.l  .E-7>  U<  J,  K  )=0 . 

C 

C  THE  RIGHT  BORDER  POINT 
C 

j=jtm 

JN=jnHSX 

BB~BN(  B<  J,  K EE<  J,  KN .) .) 

CC=CH< D( J, K > . FF< JN, K > ) 

DD=E(  J,  K  >*DN1  <  EE(  J,  KN.K.  FF<  J,  KN  .>  )i-DN2i  FFk  JN,  F  > .  EE<  JN,  K  .) .) 
EE(J,K.>=0 

FF(  J,  K  )=FN(  H<  J,  K  > ,  FF(  JN,  K  ) .) 

R=0(  J,  K .)-(  B(  J,  K  >t  T<  J,  KN  .)+£?<  J,  K  .>*  T<  JN,  K  >+£(  J,  K  .).*■  T(  J  .  K  )+H(  J,  K  >» 
«  T<  J,  KF  ) .) 

RR=PBS<R> 

IF  (RR.GT  RESID)  RESID=RR 
U(  J,  K  )=(  R-BB.tU<  J,  KN  )-CCtU<  JN,  K  )  >■  DO 
1 20  IF(  PBS(  (A  J,  K)).LT.  1  .E-7  )  U<  J,  K  .>=0 
C 

C  THE  CORNER  POINT  <l,KnHX) 

C 

K=KNPX 

KN=KNHSS 

BB=BN(  B<  J  ,  K  ),  EE<  1 ,  KN  )  ) 

DD=E(  1 ,  K  )-t-DNl  <  EE(  1 ,  KN  ),  FF(  1 ,  KN  )  ) 

EE< I , K >=EN< F< 1 , K ) , EE( 1 , KN ) ) 

FF<1,K)=0 

R=B(  1 ,  K)-<B(  1 ,  K)tT<  1 ,  KN)*E(  1 ,  K)*T(  1 ,  K)+F<  J  ,  K  )tT(2,  K)) 
RR=hlBS<R) 

IF<RR.GT. RESID)  RESID=RR 
(A  1 ,  K  )=(  R-BBtU<  1 ,  KN .)  )  'DD 
IF(  HBS<  0<  1,K))  LT.  1  E- 7  )  V<  1 ,  K  )=0 
C 

C  THE  RON  KMHN..  EXCLUDING  THE  CORNER  POINT  <JNHX,KNHX) 

C 

DO  130  J=2,JNHXX 

JP=J-H 

JN=J-1 

BB=BN( B< J, K ), EE< J, KN ) ) 

CC=CH<  0<  J,  K  ),  FF<  JN,  K  )  ) 

DD=E(  J,  K  )+ONl  <  EE (  J,  KN  ),  FF(  J,  KN  )  )-t-DN2<  FF<  JN,  K  ),  EE<  JN,  K  )  ) 

EE(  J,  K  )=EH<  F(  J,  K  ),  EE(  J,  KN  )  ) 

FF<J,  K.)=0 

R=Q(  J,  K  >-(  B<  J,  K  .>.t  T<  J,  KN  )*D(  J,  K  )t  T<  JN,  K  .)+F(  J,  K  )t  T(  J,  K  )■^F(  J,  K  )i 
&T<JP,K)) 

RR=0BS<R) 

IFIRR.GT  RESID)  RESID=RR 
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U<  J:  K  >=(  R-BBtU<  J:  KN  )-CCtU(  JN..  K  )  )  DO 
1 3d  IF<  BBS(  li<  J,K}>  LT.  1  E- 7 .)  W  J>  K  . 

C 

C  THE  CORNER  POINT  <JNBX>KNHX) 

C 

J=JMHX 

JN=JNHXX 

6B=BN<  B<  J,  K  EE<  J..  KN  >  ) 

CC=CN<  D<  J:  K  ),.  FF(  JN:  K >  > 

DD=E<  J:  K  y-i-ONl  <  EE<  J:  KN FF<  J..  KN  )  y*DN2(  FF<  JN:  K  > ..  EE<  JN:  K  >  > 
EE<  J:  K 
FF<  J:  K 

J:  K  )-(  B<  J:  K  )t  T<  J:  KN  )*0<  J,  K  .).*  T<  JN:  K  }*Ek  j  •  K  T<  J,  K  >  ) 
RR=HBS(R> 

IF(RR  GT.RESID)  RESID=RR 

0(  J:  K  )=<  R-BBtU<  J:  KN  .>-CC*U(  JN..  K  >  ■>  DD 

IF(  HBS(  (A  J:  K  ?).LT.l.E-7)  U<  J.  K  .)=t« 

C 

I'  INDEX  K  HNO  J  IN  REUERSE  TO  FIND  DELTH 
C 

C  THE  CORNER  POINT  <JNHX:KNHX) 

C 

K=KNHX 

DEL  TH<  JNHX:  K  >=(.A  J/'WX,.  K  .> 

C 

C  THE  RON  KNHX 

C 

DO  140  JJ=I:JNHXX 
J=JHHXX* I -JJ 
JP=J*1 

DEL  TH<  J:  K  )=Li(  J:  K  .)-EE<  J  .  K  .>tDEL  TH<  JP:  K 
140  IF<HBS(DELTH<J:K>).LT.  1  .E~10>  DELTH<  J:  K  )=0 . 

C 

C  THE  RON  K:  TREATING  THE  RIGHT  BORDER  FIRST. 

C 

DO  150  KK=1:KNAXX 

K==KHHXX-t-l-KK 

KF^K-H 

DEL  TA(JNHX:  K  .)=U<  JNHX:  K.>-FF(JMAX:  K>tDEL  TA<JNAX:  KP  > 

IF(  ABS(  DEL  TA(  JNAX.,  K  ).).  LT .  1 .  E- 10  >  DEL  TA<  JNAX:  K  )=0. 

DO  150  JJ=l:jnA.XX 

J=JHAXX+1-JJ 

JP=J-H 

DEL  TA<  J:  K .)=(/<  J:  K  .)-EE(  J:  K  >*DEL  TA<  JP..  K .)-FF(  J..  K .>.tDEL  TA(  J:  KP  .> 
1 50  IF(  HBS(  DELTA(J,K>.).LT.1.E-10>  DEL  TA<  J..  K  >=0 . 

GO  TO  240 
C 

C  I STONE  IS  EDEN.  INDEX  K  IN  REUERSE  ORDER. 

C 

C  THE  CORNER  POINT  <1,KMAX) 

C 

170  K^KtlAX 
KH=KNAXX 
DD=E<1..K) 

EE<  1:K)=F<  i:K).  DO 
FF(  l..K.)=B(l..K>.  DD 
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R=Q<  B<  1 ,  K  >*  T<  1 ,  KN  )*E<  1 ,  K  >*T<  1 ..  K  >*F(  1 ..  K  >*  T<  2,  K  )  > 

RR=RBS(R> 

RESJD^RR 
UC 1 ,  K  >=R  'DD 

lFi.BBS<U><  l.K>).LT  l.E-7>  WJ.K.)=0 
C 

C  THE  ROR  KMBS 
C 

DO  180  J=2..JNHS>i 

JF=J*1 

JH=J-1 

CC=CR<  D<  J:  K .) ..  FF(  JN  .  K  >  > 

DD=^E(  J.>  K >*DR2< FF<  JN.  K).  EE<  JN.  K  >  > 

EE<  J..K)=F<  J..KX  OD 

FF<  J.  K  >=FR<  B<  J.  K  .> ..  FF<  JN ..  K  )  ) 

R=Q(  J,  K  )-(  B<  J,  K )*  T<  J,  KN  )*0<  J,  K  )tT<  JN,  K  >*E<  J,  K  >* T<  J,  K  )*F(  J,  K  >$ 
&TkJP,K>) 

RR=RBS(R) 

IF(RR.GT.RESID>  RESID=RR 
U(  J,  K )-< R~CC*U<  JN,  K >  .)/0D 
ISd  IF<HBS<U<J,K)>.LT.  1  .E~7)  U(J,K)-0 
C 

C  TNE  CORNER  POINT  (JNBX.KNPX) 

C 

J^JNHK 

JH=JNBSS 

CC=CR(  D<  J .  K FF<  JN,  K  >  > 

DP=Ef  J,.  K  >i-DR2<  FF<  JN,  K  ),  EE<  JN,  K  >  > 

EE<J,K>=0 

FF<  J,  K  )=FR<  B(  J,  K  ) ,  FF<  JN,  K  >  > 

R=Q(  J,  K  )-(  B<  J,  K )*  r(  J,  KN )*D(  J,  K )t  T<  JN,  K  )+E<  J ,  K  >*  T<  J,  K  >  > 
RR=PBS(R> 

IF(RR.GT.RESID)  RESID=RR 
C'<  J,  K .)=<'  R-CC*0<  JN,  K  >  ).-  DD 
IF( HSS<  U(  J,K)>.LT.l.  E- 7  )  U<  J,  K  >=0 . 

C 

C  HLL  RONS  EXCEPT  THE  ROM  K=1 
C 

DO  200  KK=2,KNBXX 
K=KMHXXi-2-KK 
KP=K-H 
KN^K'l 
C 

C  THE  LEFT  BORDER  POINT  <1,K) 

C 

BB^BRl  H<  1 ,  K EE<  1 ,  KP  )  ) 

DD‘E(  1 ,  K )*ORI  < EE(  1 ,  KP  ),  FF(  1 ,  KP .) .) 

EE<  I ,  K >=ER< F< 1 , K >, EE< 1 , KP > > 

FF(l,K)=B(  1,K),'DD 

R^Ql  1 ,  K .)-<  B<  1 ,  K )* T<  1 ,  KN )*E(  I ,  K )* T<  1 ,  K )*F<  1 ,  K )* T< 2,  K  >*H(  1 ,  K  )* 
S,T<  I,  KP>) 

PR=HBS(R> 

IF<RR.GT.RESID>  RESID^RR 
U(  I ,  K'  .)=<  R-BBtU(  1 ,  KP .)  .>.  00 
IF(  NBS(  0<  1,K)).LT.  1 .  E- 7  )  0<  I ,  K  )=0 . 

C 


I 

L 
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THE  ROH  K  EXCLUDING  THE  RIGHT  BORDER  POINT 


DO  190  J=2..JHHXh: 

JP=J*1 

JH=J-1 

BB=BR<  H(  J,  K  EE<  J.-  KP  )  ) 

CC=CR(  D<  J,  K  FF<  JN..  K  )  ) 

DD=E(  J  -  K  )i-DRl  <  EE(  J..  KP  FF(  J,  KP  )  )+0R2<  FF<  JN,  K  ) .  EE<  JN .  /<  )  > 

EE(  J,  K  >=ER':  F<  J,  K ),  EE<  J,  KP)  ) 

FF(  J,  K  >=FR<  B<  J,  K  ),  FF(JN,  K)  ) 

R=Q(  J,  K  .)-<  B<  J,  K  )t  T<  J,  KN  )+D<  J,  K  )t  T<  JN,  K  )+E(  J,  K  )*  T(  J,  K  .)+FC  J,  K  )t. 
&  T(  JP,  K  )i-H(  J,  K  >.t  T(  J,  KP  ) .) 

RR=h)BS<R) 

IFiRR.GT .RESID)  RESID=RR 
U(  J,  K  )=<  R-BB*U<  J,  KP  )-CCtU<  JN,  K  )  .>.  00 
J  90  IFi  HBS(  U<  J,  K)).LT.1.E- 7 )  U<  J,  K  )=0 . 

C 

C  THE  RIGHT  BORDER  POINT 
C 

J=JNRX 

JN=JNHXX 

BB=BR<  H<  J,  K  ),  EE<  J,  KP  )  ) 

CC=CR< 0< J, K ) , FF< JN, K > ) 

DD=E( J,  K)*0R1 ( EE( J, KP ), FF< J, KP ) )*DR2< FF< JN, K ), EE< JN, K ) > 
EE<J,K)=0. 

FF(  J,  K  )=FR':  B<  J,  K),  FF<  JN,  K  >  ) 

R=Q<  J,  K  .)-(■  B<  J,  K  )t  T<  J,  KN  .)+0<’  J,  K  )*  T<  JN,  K  )+E<  J,  K  )t  T(  J,  K)*H<  J,  K)* 
&T<J,KP)) 

RR=HBS(R) 

IF(RR. GT. RESID)  RESID=RR 
(.'(  J,  K)=<  R-BBni(  J,  KP  )-CCni(  JN,  K  )  >.  00 
200  IF(  HBS<  U<J,  K)).LT.1.E-  7  )  U<  J,  K  .>=0 . 

THE  CORNER  POINT  (1,1) 

BB=BR<H<  1,1),EE(1,2)) 

DD=E( 1 , 1 )*DR1 < EE< 1 , 2 ), FF< 1 , 2 ) ) 

EEC  1 , 1 )=ER(F( 1 , 1  >, EEC  1 , 2 ) ) 

FF<1,1)=0. 

R=QC  1 , 1  )-CEC  1 , 1  )*TC  1 , 1  .>+FC  1 , 1  ):KT(2, 1  .>+H<  1 , 1  )*TC  1 , 2)) 

RR=HBS(R) 

IFCRR.GT. RESID)  RESID=RR 
UC 1 , 1  )=C  R-BBtUC  1 , 2  )  )  -'DD 
IFC HBSC UC  1, 1  )).LT.  1  .E-7>  UC  1 , 1  )=0 . 

THE  ROH  K=l,  EXCLUDING  THE  RIGHT  CORNER  POINT. 

DO  210  J=2,JN0XX 
JP=J^-1 
JH=J-1 

BB=BRC  HC  J,  1  ),  EEC  J,  2  )  ) 

CC=CRCDCJ,  1  ),FFCJN,  1  >> 

00=f ( J, 1 )*DR 1 C EEC J,2) , FFC J, 2 ) )*DR2C FFC JN, 1 ) , EEC JN,  1 ) ) 

EEC  J,  1  )=ERC  FC  J,  1  ),  EEC  J,  2  )  ) 

FFC J, 1 )=0. 

R-BCJ,  1  )-CDCJ,  1  XtTCJN,  1  >+ECJ,  1  X-KTCJ,  1  )*F(J,  1  )*T(JF,  1  )*HCJ,  1  )* 
&TCJ,2)) 


80 


o  n  rj 


RR=i^BS<  R .) 

IFi RR.GT  RESID)  RESID=RR 
C'i  J..  1  )^(  R-BBJu<  J:  2  )-CC*iJ<  JN ,  i  )>.  -DD 
21 0  IF( BBS( U<  J..l  )>.LT.l.  E-7)  (A  J.  1  >=6 . 

C 

C  THE  CORNER  POINT 
C 

J=JMHK 

JH=JMHS>< 

BB=BR(  H<  J.,  1  EE<  J.-  2  >  > 

CC=CR(  D<  J:  1  )..  FF(  JN,  1  ) .) 

DD=E(J..  1  )*DR1<EE<  J..  2),  FF<J.  2 )*DR2< FF(  JN.  1  )>  EE(JN..  1  )) 
EE(J.,  1>=B. 

FF(J..  1  )=e. 

R=Q<J..  1  >-(0<J.  1  )*T(JN,  1  )+£■(./..  1  .>tT<J..  1  1  )tT(J,2)) 

RR=HBS<R) 

IF(RR.CT.RESID)  RESID^^RR 
U(J..  1  )=(  R-BBHU<  J:  2  )-CC*(h  JN..  1  )).'D0 
IF(  HBS(  U(  J.  1  }}.LT.  1  .E-7>  U<  J,  1  >=0 
C 

C  INDEX  K  FORMRD  &  J  REVERSE  TO  FIND  DELTH 
C 

C  THE  POINT  (JNHX.-1.> 

C 

DEL  THLJNHX,  1  )=V<JNHX,  1  .) 

r 

C  THE  RON  K=1 

C 

DO  220  JJ=1,JNHXX 
J= JM»^XX+J  -JJ 
JP=J*1 

DEL  TH(J..  1  )=V(J..  1  >-EE<J..  1  nOEL  TH<JF..  1  ) 

220  IF( HBS( DEL TH( J, 1 ) > . LT . 1 . E- 1 0 >  DEL TH< J, 1  >=0 . 

C 

C  HLL  REMHINING  RONS 

C 

DO  230  K=^2..KNHX 
KH^K-l 
C 

C  THE  RIGHT  BORDER  POINT 

C 

DEL  TH<  JNHX..  K  )-V(  JNPX..  K  )-FF(  JNHX,  K  ytDEL  T0<  JNPX..  KN  ) 

IF(  HBS(  DEL  TH<  JNOX..  K  >  ) .  LT  1 .  E~  10  >  DEL  TP<  JNPX..  K  >=0 
C 

C  HLL  REHHINING  POINTS  OF  THE  RON 

C 

DO  230  JJ=l..jnHXX 
J=JHHXX-H-JJ 
JF^^J+I 

DEL  TH<  J,  K  )=U<  J,  K  >~EE<  J,  K  )*DEL  TP<  JF.  K  )-FF(  J..  K  )*DEL  TP(  J.  KN  ) 
230  IF( HBS< DEL TP( J, K ) ) . LT . 1 . E-10 >  DEL TP( J, K )=0 . 

CHLCULPTE  NEN  T<J..K) 

240  DO  250  J=1..JN0X 
DO  250  K^l  .KmX 
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jro  1=1*1 

RR=XFCIS<  1  >-XO0 
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^50  T<  J..  K  >=  T<  J,  X  >i-DEL  T0<  J..  k  .) 

RETURN 

C 

C  ENTRY  STONEl  SETS  UP  PLFHN  U0LUES  &  INITIALIZES  ALL  ARRAY 
C 

EN TRY  S TOHEl  <  JNAX..  KNAX ) 

C 

DO  320  J=2.-JHAX 
DO  320  k =2..  UMAX 
DX=XDL  T<  J  ),  XFOS<  JNAX .) 

DY=YDL  T( K ).  YFOS(  1  ) 

320  EE<  J:  k  )=2 .  E0  <  1  .  E0-  (  DXtDX  .>*■!  E0y  <DYtDY )  > 

C 

C  FIND  AVERAGE 

C 

ALFHX=0 

DO  330  J=2..JNAX 
DO  330  k=2..kTtAX 
330  ALPNX=ALFHX*EE':  J..  K  > 

AL  FHX=ALFHX.  '<'  JNAXtKNAX  ) 

C 

C  INFLENENT  STONE'S  EQ(27) 

C 

DO  340  J=l,9 
ALPHY=J-1 
ALFHY=ALPHY.  S.  EO 
340  EE(J, 1 )=ALPHXt*ALPHY 
C 

C  IMPLEMENT  THE  SEQUENCE  OF  IS  ALPHAS  SUGGESTED  BY  STONE 
C 

ALPHA<  1  >=EE<9..  1  > 

ALFHA(3)=EE<€..  1  > 

ALFHA<5>=EE<3..  1  ) 

ALPHA<7)=EE(S, 1  > 

ALFHA<9.>=EE<5, 1  ) 

ALPHA(11)=EE<2..  1  ) 

ALPHA!  13.>=EE(7..  1  > 

ALPHA!  15)=EE<4..  1  > 

ALPHA! 17 >=EE! 1: 1  ) 

DO  350  J=2.-1S>2 
350  AL PHA! J >= ALPHA! J- 1 ) 

DO  360  J=1.<1S 
360  ALPHA! J)=1.E0-ALPHA!J> 


C  INITIALIZE  ALL  ARRAYS  INTERNAL  TO  STONE  TO  ZERO. 
C 

DO  370  J=l.- UMAX 
DO  370  K=i/KMAX 
EE!  J.-K  .>=0. 

FF!J..K)=0. 

V!J..K>=0. 

370  DELTA! J..K)=0. 

RETURN 

END 
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c 
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c 
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SUBROUTINE  EFIELD 

CNLCULOTES  THE  ELECTRIC  FIELD  COMPONENTS  ESUBX  &  ESUBV 


COMMON-  HRRHYSy'FSK  31 , 31  EOENS<  31 31  ),  HDENS<  31 31  B<  31  .■  31  >, 

&0<  31 , 31  X.  E<  31 ..  31  X.  F(  31 ..  31  >,  H<  31 31  .K  Q<31 31  K  QARErtv'  31..  31  >.■ 

&DEL  TH(  31  j.  31 ESUB.\'(  31 , 31  .),ESUBY<  31 , 31  IDENT<  31 ..  31  .) 

CONMON-  VDEFF-  HSTH<  31 31  ),  HUEST<  31 , 31  X  HCNTR(  31 ..  31  HEBST(  31 ..  31  X. 
&HNRTH(  31 31 XDL  T<  32  ),  YDL  T<  32)..  XPO$<  31  )..  YP0S(  31  ) 
COMNON--REHL-'XUIDTH..  YDEPTH,  BRRIER..  EGBP.  TP1FTR,  HCCPTR,  VBL  TIN,  UOL  T, 

& TRNSIC, QSS, XO,  YO, ROD, XDEL TH, YDEL TH 
COMMON.' INTGR-  IMBX,  JMHX,  IXl-lDTH,  JYDFTH 
COMMON.- CNTRL  I TMHX,  I TRMBX,  CONURG,  SIDL  T 
COMMON.  NRMLZE-DNSNRM, FSINRM, DSTNRM, BL TZMN 

ESUBX  COMPONENT 

IMHXX=IMHX-1 
DO  140  I=2,IMPXX 
DO  140  J=2,JMHX 
XU=XDL T( 1 ) 

IF(  IDENT<  I,J).LT.0>  GO  TO  140 
IF(  IDENT<  I,J>.EQ.0)  GO  TO  120 
IF(J.EO.JMPX>  GO  TO  lOO 
Yi4U=(  YDL  T(  J+1  )-t-YDL  T<  J)  X-E .  E0 
GO  TO  110 
ilia  YAl.i=YDLT<  J) 

110  XN=Y0U.-'HI,IEST<  I,J) 

120  ESUBXd,  J)=<  <PSI(I,  J)-PSI(  I  +  l ,  J)).-  XDL  T(  1*1  )*<PSI(  I-1..  J)-PSI(I,  J)) 
&.-Xt.lX-'2.Ee 
140  CONTINUE 

ESUBY  COMPONENT 

JMNXX=JMPX-1 
DO  190  I=1,IMPXX 
DO  190  J=2..JM0XX 
YN=YDL  T<J*1 .) 

IF(IDENT<  I,J).LT.0)  GO  TO  190 
IF(  I0ENT<  I,J)  .EQ.0)  GO  TO  170 
IF(I.EQ.l)  GO  TO  150 
XHU=(XDL  T(  I  )*XOL  T(  1*1  ))--2.E0 
GO  TO  160 
150  X0U=XDLT<2) 

1 60  YN=XHU.-HNR TH<  I,J) 

1  70  ESUBY(  I,J)=<<PSI':  I,  J*1  )-PSI<  I,  J))--  YN*<PSI(  I,  J>-PSI<  I ,J-1  ))■-' 

&YDL  T(:j>>.--2.E0 
190  CONTINUE 


PPPLY  OU0DR0TIC  EXTRAPOLATION  TO  FILL  IN  ESUBX  &  ESUBY  AT  THE 
EXTERNAL  POINTS  BORDERING  THE  INTERFACE. 


DO  200  I=1,INAX 
DO  200  J=1,JMAX 
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IF(  IDENT<  I..J>  GE  0>  GO  TO  200 

IF(,  I OEN  T<I*l..J>.LT.O  )  GO  TO  200 

OENOn  =>iDL  T<  1*3  )tXDL  T(  I *2  >* < SDL  T<  1*3) *SDL  T(  1*2  )  ) 

SS=SDL  r<  1*2  )*XDL  T<  1*1) 

DEHUH=XDL T< I *2 )tESUBX< 1*3, J >*XDL T< 1*3 )tESUBX( 1*1,J)- 
& <  XDL  T(  I  *2  )*XDL  T(  I *3  )  )1:ESUBX>,  I  *2,  J  ) 

00=0ENUN.'DEN0N 

DEHUN=XDL T< I*2)*XDL T< 1+2 )tESUBX< 1*3, J ) -XDL T< 1*3 ^tXDL T< 1*3 )t 
ScESUBXi  1*1,  J  )-(  XDL  T<  I  *2  )*XDL  T<  1*2  )-XDL  T<  1*3  )*XDL  T(  1*3)  )t 
&ESUBX<  I*2,J) 

BB-OENUN'DENOn 

ESUBXi  I,  J  )=ESUBX<  1*2,  J  )*FtO*XXtXX-BBT:XX 
DEH0f1=  VOL  T<  J-2  )t  YDL  T<  J- 1  )t<  YDL  T<  J-2  )*  YDL  T<  J- 1  )  ) 

XX^YDL  T<J-1  )*YDL  T<J  ) 

DENUM=YDL  T(J-1  )*ESUBY<  I ,  J-3  )*YDLT(  J-2  )*:ESUBY(  I ,  J-1  )- 
& (  YDL T< J- 1 )*YDL T< J-2 ) )*ESUB Y< I , J-2 ) 

OO^DENUN'DENOTI 

DEHLin=YDL  T(J-1  )tYDL  T(J-1  )tESUBY<  I ,  J-3)-YDL  T>.  J-2)tYDL  Tk  J-2 
&ESUBYi  I,  J-1  )-<  YDL  T<  J-1  YtYDL  T(  J-1  )-YDL  T<J-2)t  YDL  T<J-2)  >t 
S,ESUBYi  I,  J-2) 

BB=OENUn,'OENOM 

ESUBY<  I ,  J  )=ESUBY(  I ,  J-2  )*Oh)tXXiXX-BBtXX 
00  CONTINUE 
RETURN 
END 


c 

c 

SUPROUTINE  f^VLNCH<  UL  TOL  T,  T..  XPrt  TH>  V'Prt  TH..  ET..  KNTf'MX) 

C 

C 

C  EU^LU^TES  THE  BREt^KLWl-JN  WLTBCE  BFTER  LOCBTING  THE  TRAJECTORY 
C  ALONG  UHICH  THE  IONIZATION  INTEGRAL  IS  A  NAXINUn. 

C 

C 

C 

C0NT10N'- ARRAYS-  FSI<  J1 SI  EOENS<.  SI Si  Y.  HDENS(  SI  ■  SI  >  ■  £?•.  SI ..  SI  >.. 

&0(  SI ..  SI  .).•  £■(  31 ..  SI  X.  E<  SI  .  SI  >..  H',  SI ..  SI  >  •  Q<  SI ..  SI  >  ■  QAREA(  31 31 
&DEL  TAl  SI ..  SI  ESUeS<SI SI  >.■  ESUBY<  SI  .■  SI  IPENT<  SI SI  > 

COHTION.  COEFF-  HSTHY  S 1  -■  S 1  >  ■  HUEST(  SI  .■  SI  >  ■  HCNTR'.  31 SI  >..  HEASTk  31 31 
&HHR  TH(  31 . 31  )  ■  SDL  T(  3Z  >.■  YDL  T(  32  SFOS(  31  V.  YFOS<  31  > 

CONNON.-  REALy'SHIOTH:  YDEFTH..  BRRIER..  EGAF..  TMFTR..  ACCFTR..  VBL  TIN,  UOL  T, 

&  TRNSIC,  OSS,  SO.-  YO,  RAO,  SDEL  TA,  YOEL  TA 
COMMON.  I NTGR.- 1  MAS,  JMAS,  ISNOTH,  JYDFTH 
COMMON.  CNTRL  I TMAS, I TRMAS, CONORG . SIDL T 
COMMON.' NRMLZE,  DNSNRM,  FSINRM,  DS  TNRM,  BL  TZMN 
COMMON.  SNGLE-  UOL  TO,DL  TUL  T,NUOL  T.KOUTFT 
COMMON.  RSCALE.'  RSFCTR 
C 

DIMENSION  SSTART<3},  YSTART<3>  ■  Fh  3>  .  KNTMS<  S  >,  ISTART<  3  >,  JSTART<  3 .> 
DIMENSION  SPATH<RNTMAS,  3),  YFATH<  KNTMAS,  3  >  .ET<  KNTMAS,  3) 

DIMENSION  RR< 3 ), OMEG< 3 > 

C 

C  CALCULATE  EQUILIBRIUM  PARAMETERS  ESTIMATE  THE  BREAKDONN  VOLTAGE, 
C  AND  CALCULATE  INITIAL  NORMALIZATIONS. 

C 

CALL  EQULIB 

RSFCTR=1  0 

RDSAVE=RAD 

SNSAVE^SMIOTH 

YDSAUE=YDEFTH 

QSSAUE=QSS 

UOL  T==UOL  TO-DL  TUL  T 

N=0 

90  N=N^-1 

IFkN.GT  NUOLT)  RETURN 
UOL T~UOL T+DL TUL T 
FSINRM=UBL TIN+UOL T 

DSTNRN=SQRT(2.tl 1 .  7tS.$54E-14tFSINRM  <  1  602E- 1 9 IDNSNRM ) > 

IF<  RDSAUE  NE .  SI4SAUE .  OR .  RDSAUE  NE .  YDSAUE  )  GO  TO  95 
RADI ^RDSAUE  (DSTNRMtl  E4 ) 

CALL  DEPLTE<S,RAD1 ) 

RD=S*RAD1 
RSFCTR=R0-RAD1 
95  KSUCH=0 
K=1 

ISTARTk2.>=ISNDTH 

JSTART<2)~JYDPTH 

C 

C  PROVIDE  CURRENT  NORMALIZATIONS  OF  RAD, SNIDTH, YDEFTH,  &  QSS 
C 

100  RAO^RDSAUE  (DSTNRMtl . E4  ) 


85 


SNIDTH=SNS(^UE  '(DSTNRntl .  E4  ) 

YDEFTH=^YOSm.iE^(DSTNRN.tl .  E4  ) 

QSS=QSS(iUE*DSTNRH-  <  1 1 . 7*8.  S54E-14*RSINRM .) 

SINRM0=FSINRN 

C 

C  USING  PRESENT  NORMALIZATIONS.-  SOLUE  POISSON'S  EQ  &  OBTAIN  THE 
C  ELECTRIC  FIELD  LATTICES.  IF  KSNCH  EQ.O.-  LOCATE  POSITION  OF  MAX 

C  E-FIELD  AND  ESTABLISH  THREE  STARTING  LOCATIONS  CENTERED  ABOUT  THAT 

C  POSITION.  IF  KSUCH.GT.O:  ESTABLISH  ONLY  THE  CENTRAL  STARTING 

C  LOCATION. 

C 

CALL  GRID 

CALL  STONE 1( IMAX, UMAX. > 

CALL  BORDER 
CALL  NITIAL 
CALL  GRELAX 
CALL  EFIELD 
I=*ISTART<2>-i 
J=JSTART<2)-1 

IF<RAD.NE.XHIDTH.OR.RAD.NE.YDEPTH.OR.QSS.NE.O.  >  GO  TO  105 

KSUCH^l, 

GO  TO  120 

105  IFiKSNCH.GT  0.)  GO  TO  120 
E  TS  T=2 .  E5*DS  TNRM.^  PSINRM 
EMAX=0 . 

DO  110  II~1..IMAX 
DO  110  JJ-1..JMAX 

ETT=SQR  T<  ESUBX(  1 1 ..  JJ  .)*ESUBX<  1 1 JJ  >-i-ESUB  V'<  1 1 JJ  >*ESUB  \\  1 1.  JJ  > ) 

IF(ETT.LE.  EMAX.>  GO  TO  110 

EMAX-ETT 

I=II 

J=JJ 

110  CONTINUE 

IFIEMAX.GE  ETST)  GO  TO  115 
EMAX=EMAX*PS I NRM-DS TNRM 
NR  I  TE<  6'..  1 040  )  UOL  T ..  EMAX 

1040  FORHAT<  1H0..5X..  'SKIPPING  UOLT=  ' IPEIO .  2.-  '  .  MAX  ELECTRIC  FIELD 
&  TOO  SHALL  (  EMAX=  ' 1  PEI  0 . 2.-  ' 

GO  TO  SO 
115  1=1-2 
J=J-2 
C 

C  ESTABLISH  STARTING  COORDINATES  FOR  TRAJECTORY  K. 

C 

120  1=1*1 
J=J*1 
X=XFOS<  I .) 

Y=YFOS<J.) 

IFiX.GT.XO.)  GO  TO  125 

XSTART<K.)=X 

YS  TAR T<  K  .)= YPOS<  JYDP  TH  > 

GO  TO  150 

125  IFCY.GT.YO.)  GO  TO  130 
XS TART< K >=XPOS< IXND TH > 

YSTART(K)=Y 
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UO  TO  150 

i:Td  >:=s-so 
Y=Y-yo 

IF<X.Lr.Y)  GO  TO  140 
V’=V.-,V 

KSTORTk  K)=X0*R0D  SQRTk  1  .  EO-t-YHY) 

YS  Ti4R  T<  K  )= YO*< SS  Th)R T<  K  .>-.V0  >* Y 
GO  TO  150 
140  S=R.-  Y 

YSTORTk  K  >=YO+ROD-'SQRT':  1  EO+XtX) 

XS  Tf^R  T<  K  )=XO*<  YS  TtkR  T<  K  >-YO  )tX 
150  IF(KSRCH  GT.O)  GO  TO  ISO 
k=K*l 

IF(K.GT.3'>  GO  TO  170 
GO  TO  120 
C 

C  TRRCE  OUT  THE  TRAJECTORY  FOR  STARTING  POSITION  K. 

C 

170  K=1 
ISO  KNT=1 
KEXI T=0 
X=XSTART<K) 

Y=ySTART<K.> 

I^IXHDTH 

J=JYDPTH 

DL TX=X-XPOS< IXNDTH) 

DLTy=Y-YPOS<.  JYDPTH) 

CAL  L  !NDEX<  I ..  J..  DL  TX..  DL  TY>  KEXI  T  ) 

I  STAR  T-iKT^^I 
JSrART<K>=J 

IF(DL  TX.  LT  XDL  T<  I  +  l  >.  1  .  E3>  DL  TX=XDL  T<I*1  )  1  .  E3 
IF<  DL  TV .  L  T  YDL  T<  J  .>.1  E3  >  DL  TY=YDL  T<  J  >.--l  E3 
X=XPOS< I  >*DL  TX 
Y=YFOS<J'>*DLTY 

CAL  L  EFORCEL  I ..  J..  X..  Y..  DL  TX..  DL  TY..  EX..  EY..  E  T(  1 ,  K  )  > 

XPA  TH(  1 ..  K  )=X 
YPATHL 1 .K>=Y 
ETr=ET<  1,K.> 

190  CALL  TRAJECLKNT..  I..  J..  X..  Y..  DL  TX..  DL  TY.ETT..  KEXI  T  > 

IFLKEXIT.GT  0)  GO  TO  200 
KNT=kNT*l 

IFiKNT  GT  KNTNAX.y  GO  TO  195 

XPATHiKNT..K.>=X 

YPA  rH(KNT,K  )=V' 

ET<  kNT  .K  >=ETT 
GO  TO  190 

195  NR  I  TEL  6  . 1000)  KNTNAX 

1000  FORMAT':  IN l..30X..y..5X..  'E.XCEEDED  STORAGE  ALLOTTED  FOR  TRAJECTORIES 
&'(KNTnAS=' ..  13..  ').  •..■,5X..  'INCREASE  THE  UALUE  OF  THAT  PARAMETER  ' 
&'IN  NAMELIST  CONTRL  5X.  'INCREASE  DIMENSIONS 
&'ALLOTEO  TO  XPATH, YPATH, &  ET  IN  MAIN, IF  NECESSARY.  ') 

STOP 

200  KNTMX<K.)=KNT 
C 

C  APPLY  PARABOLIC  EXTRAPOLATION  TO  OBTAIN  A  BETTER  ESTIMATE  OF 
C  ET(1,K>  AT  THE  INTERFACE. 
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c 


D.V=.VPrt  TH<  4 ..  K  )-XFi4  rH<  3>  K  > 

D  Y=  VFh)  TH<  4 ,  K  )  -  YPt4  TH<  3.  K  ) 

OSF^SQR  T<  DXtDX^-DYtDY  ) 

DX=XFt4  TH<  3..  K  )-XFi4  TH<  2,  K  ) 

DY= YFi4  TH<  3 K  ) - YFF  TH<  2 ,  K  ) 

DSN=Sl1R  T<  DX*DX+DY*DY  > 

DX=XFt^  TH<  3:  K  >-XFi4  TH<  1 ..  K  > 

DY= YFYI  TH<  J,.  K  ) -  YFi4  TH<  1 K  ) 

DS=SQR T< DXtDX+DYtDY > 

DENOH=DSPtDSN^<  DSF-i-OSN  ) 

DENUH=DSN*ETi.  4..  K )+DSF*ET< 2..  K  )-i  DSF-i-DSN }*ET<  3..  K) 
i4i4=DEHUH  DENOM 

DENUn=DSN*DSNtET<4..  K  )-DSP4:DSFtET( 2 .<  K  )-< DSNtDSN-DSFtDSP  )*ET<  J,.  K) 
eB=0ENUf1.-  DENOn 

ETU.K  )=E  T<  3:  K  )+mtDStDS-BB*DS 

FI<h:>=0. 

RRlK'>=0. 

OUEGk  K  >=0 

XF  T=XFB  TH<  1  .■  K  TNRMt  1  E4 
YF  T=  YFB  TH(  1 ..  K  >tDS  TNRN*  1  E4 
EFT=ET':  1 A;  )tFSINRN.  DSTNRN 

NRITElS.  lOlB)  K:  ISTART<  K  >  •  JSTBRTk  K  XFT ..  YFT ..  EFT  ■  F  I(  K  '•.ONEGkK  ) 
lOlB  F0Rl-1YlT<2X...-  y-.-2X..  '  K  '  3X ,  '  ISTt4RT  ' IX  •  'JSThtRT'.3X,  '  XPP  TH  '  .  5.V  • 

'  VPP  TH  • ..  7X..  'ET'..  6X..  '  BL  FHN  ' ..  5X..  '  RiL  PHF  ' ,  6X..  'FI'  <7X.  '  ONEGB  ' 

&  ■..  IX..  12:  5X..  12,  5X..  I2.-  3X..  1F3E10  2.20X.  lF2Eie  2  ' 

C 

C  EUBLLMTE  THE  I0NI2RTI0N  INTEGRAL  ^LONG  TRtiJECTORY  K 
C 

2113  KNT=KNT-H 

IFlkNT.GT  KNTMXkR).^  GO  TO  220 
DX=XFOTH(KNT..  K  )-XPh)TH': KHT- 1 ..  K  ) 

DY=YFflTH<KNT..  K  ) - YPO TH<KNT-1 ..  K  > 

ET2=ET<KNT.‘K  > 

ETl=ETiKNT-l..k) 

OMECO=OnEG< K  ' 

CO L L  JN TGRL <  OX..  DY .  ET  1 ..  ET2 .  F I<  K  ) ..  RRk  K .> OtIEGK  K  ) OL FHN >  OL FHF  ) 

XF T=XFO TH (KNT , K )tOS TNRN *1  E4 
YP T=  YFH TH< KNT  .  K  )WS TNRNtl  E4 
EPT=ETkKNT.  K  >*FSINRM  DSTNRN 

UR  I  TE  (  6 ..  1 020  >  XF  T ..  YP  T..EPT,HL  FHN ..  OLFHF ..  F  h  K  ) ONEG(  K  ' 

1 020  FORNO  T<  2BX..  1F7E10  2  .> 

rS  T=<  OMEG':  K  >-ONEGO  ).  ONEG<  K  > 

IF(TST.GT.  1  E-4)  GO  TO  210 
220  IFiKSUCH.GT  0)  GO  TO  230 
K=K*1 

IF(K.LT.4)  GO  TO  ISO 
KSUCH=1 

230  IF<K.EC).2>  GO  TO  290 
C 

C  OOJUST  STORTING  POSITIONS  UNTIL  THE  TROJECTORY  K=2  PRODUCES  THE 
C  NOXinUN  lONIZOTION  INTEGROL. 

C 

IFiPK  1  >.GT  PI<2)>  GO  TO  250 
IF(K.  EQ.  1  .)  GO  TO  240 
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c 

c 

c 


IF<PI<3).GT.Pl<2)>  GO  TO  270 
240  K=2 

GO  TO  290 

MPSINUM  IS  TO  LEFT  OF  K=2  SHIFT  LEFT  ACCORDINGLY. 

250 

ISTPRT<2>=ISTART<  1  > 

JSTPRT<2)=JSTART<  1) 

XSTART<2>=XSTART<  n 
YSTPRT(2)=YSTART(  1  > 

FI<2>=PI<1> 

KNrMX<2.>=KNTNX<  1) 

KMX^k:NTHX<  1  > 

DO  260  KNT=1..KI1X 
XPATH(I<NT..2)=XPATH<KNT,  1  > 

YPPTH':KHT,2)=^YFATH<KNT..  1  .) 

260  ET<KHT..2>=ET<KNT.  1  > 

I=‘ISTART<  1  >-2 
J=JSTART<  1  )-2 
IF(I  LT  0.'>  GO  TO  240 
GO  TO  120 

mXINUM  IS  TO  RIGHT  OF  K=2.  SHIFT  RIGHT  ACCORDINGLY. 

'^70 

I  STAR  T<  2.y=^IS  TAR  T(  3  > 

JS  TAR  T<  2  )=JS  TAR  T<  3 
XSTART<2)=XSTART<3) 

YS  TAR  T<  2  .)=  VS  TAR  T<  3 .) 

PI<2>=PI<3.> 

KNrMX<2.>=KNTMX<3.) 

KHX=kNTMX<3> 

DO  2S0  KNT=1,KNX 

XPA  TH<  KN  r..  2  >=XPA  TH(  KN  T ..  3  > 

YPATH<KNT.>  2 >=YPATH( KNT..  3> 

280  ET<KNT.-2>=ET<KNT..3.> 

I=ISTART<3> 

J>^JSTART<3.'> 

IF<J.EQ.JnAX.'>  GO  TO  240 
GO  TO  120 

290  EN1=EXF<FI<2)) 

DEN=1 .  -0NEG<2.'> 

DN-ABS<DEN> 

IFlON.  LT.l.  E-70>  DEN=SIGN<  1 .  E-70,  DEN.) 

EM2=1 .  -'DEN 

NR  I  TE<  6, 1 030 .)  UOL  T..  EHl EN2 

1030  FORMAT(  1H0..5X.-  'OOLT^  ' IPEIO  2.- 3X..  '  Ml^ ' IPEIO .  2.- 3X..  'N2*'..1FE10 
IF<KOUTPT.GT.0)  GO  TO  90 
CALL  OUTPUT 
GO  TO  90 
END 
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SUBROLI TINE  UGUESS<  UNIT) 

C 

C  SUFFLIES  INITIAL  ESTIMATE  OF  THE  BREHKDONN  UOLTHGE  USING  ON 
C  ENFIRICHL  FIT  TO  THE  KENNEDY-0 ‘ BRIEN  CURUES . 

C 

C 

CONNON>-HRRHYS.-PSI<  31 31  .).•  EOENS<  31 31  >,.  HDENS( 31 ..  31  B(  31  ■  31 
&D( 31 ..  31  >..  E(31,31 F<  31 ..  31  )..  H<  31 ..  31  Q(  31  .■  31  ),  QHREH<  31 ..  31 
&DEL  TH(  31 31 ESUBX<  31 ..  31  )..  ESUBY<  31 ..  31  ),  IDENTY 31 ..  31 ) 
COMNON^COEFF.-HSTH<  31 JJ  HWfS7<  31 31  HCNTR<31 31  HEHST<31 ..  J/  .), 
&HNRTH(31, 31  ),X0LT(32)..  YOLK  32  >.- XPOS<  31  >.  YF0S(31  > 

COMMON.- REALy  XH I OTH.  YOEPTH,  BRRIER..  EGAP..  TMPTR..  ACCFTR.  UBL  TIN.UOL  T . 

&  TRNSIC,  LlSS.>  HO.,  YO.-  RAD.-  XDEL  TA.-  YDEL  TA 
COMMON-- INTGR  -IMAX.-  JMAX.-  IXHDTH.-  JYDPTH 
COMMON. 'CNTRL  -  I  TMAX..  I TRMAX,  CONURG..  SIDL  T 
CONNONy-HRMLZE  -DNSNRMyPSINRM,  DSTNRM.-  BL  TZMN 
C 

RR^RAD 

IFYRR.EQ.O)  RR=0.1 
AA=1  .  .-<18.  *150.  tRR) 

UHIT=1  .y<AA+3.  75E-12tDNSNRM.t.ni.  6) 

AA=2.  3e3E4.-  (DNSNRN**.  3695) 

BB=7.  S91E3  -<DNSNRN4:t.296S) 

TT=TMPTR.-30O.  -1 . 

UHIT=UNIT$<AA*TTtTT*BBt'  *1.  ) 

RETURN 

END 

C 

C 
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SUBROUTINE  EQULIB 
C 

C  USING  UNNORNNLIZED  UNRINBLES..  CBLCULBTES  THE  TENFERHTURE- 
C  DEPENDENT  BHND  GBP..  THE  IONIZED  HCCEPTOR  DENSITY.-HND  THE  BUILT-IN 
C  POTENTIAL  BHRRIER.-  HCCOUNTING  FOR  THE  TENPERHTURE  DEPENDENCE  OF 
C  THE  INTRINSIC  DENSITY  HND  OF  THE  FERMI  LEUEL 
C 
C 

c 

COMMON -HRRHYS -PS I<  31 31  EDENS<  31  .•  31  HDENS<  31 31  B(  31 ..  31 
&D(  31 31  E<  31 31  F<  31  .•  31  H<  31 31 Q<  31 ..  31  QHREH<  31  .■  31 
&DEL  roe  31 ..  31 ESUBS(  31 , 31 ESUBY( 31 31  IDENT<  31 ..  31  ) 

COMMON  -  COEFF  -HSTH(  31 ..  31  ) >  HHEST(  31 , 31  )>  HCNTR<  31 ..  31  HEHST<  31  31 
&HNR  TH(  31 ..  31  XDL  T<  32  YDL  T<  32  >.•  XPOS<  31  >.■  YPOS<  31  > 

COMMON  REHL  -  XNIDTH..  YOEPTH..  BRRIER..  EGHP.-  TMPTR..  HCCPTR..  UBL  TIN,  UOL  T, 

& TRNSIC, QSS, XO,  YO, RHD, XDEL TH, YDEL TH 
COMMON.- INTGR-  IMHX,  JMHX,  IXUDTH,  JYDPTH 
COMMON.-  CNTRL  -  ITNHX,  I TRMHX,  CONURG,  SIDL  T 
COMMON.- NRNLZE--DNSNRN,  PSINRM,  DSTNRM,  BL  TZMN 
COMMON -  SH  TCH  -'  NDOPE 
C 

T=TMPTR.  3.  E2 
BL TZNN=0.025S5tT 

EGHP=1 .  165-7.  242E-3.tT-3.  664E-2*T$T 
EIU=EGHP-2.E0-1  306E-2*I 
X=EIU 
KEY=1 
GO  TO  170 
C 

C  HD  JUST  Xi&XZ  UNTIL  YUY2  HHUE  OPPOSITE  SIGN 
C 

100  X1=X 
Y1  =  Y 

D.Y=-EIU  2.E1 
IF<Y.LT.O  .)  DX=-DX 
X=X1 *DX 
KEY=2 
GO  TO  170 
110  X2=X 
Y2=Y 

IF<Yli.Y2.LE.O.  )  GO  TO  140 
130  X1=X2 
Y1=Y2 
X=X2*DX 
GO  TO  170 
140  KEY=3 
C 

C  METHOD  OF  SECHNTS 
C 

150  IF(HBS<Y.'>.LT.  1  .E-3.>  GO  TO  ISO 
DEN=Y2-Y1 

X-(  XI  *  Y2-X2*  Y1  >-DEN 
GO  TO  170 
IbO  X1=X2 
Y1  =  Y2 
X2=X 
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V'2=V 

GO  TO  150 
C 

C  SUBROUTINE  FOR  EURLURTING  Y 
C 


C 

C 

C 

C 


1F0  EIF=X 

EFU=EIU-EIF 

ERF =4 . 3SE~2-3.  037E-StRCCPTRtT:<  1 .  tW.  0)-EFU 

BKGRND=RCCP  TRy<  1 .  OH  4 . 0*2 .  0-  ESP<  4 . 4E-2.'  BL  TZtlN .)  )tEXP<  ERF^BL  TZI1N .) .) 
IF<  NDOPE  .GT.O)  BKGRNO=RCCP  TRH  1.  *2.  *EXP<  ERF.-  BL  TZNN  >  ) 

TRNSIC=3.  925E19*Tm:!RT<  T)tEXP<-£GRPy<2.  *BL  TZflN)) 

BUL  KP=  TRNSIC4!EXF(  EIF^  BL  TZHN  ) 

V'=<'  BULKP-BKGRNO  )-RCCP  TR 
GO  TOdOO,  no,  160)jKEY 

CRLCULRTE  THE  BUILTIN  POTENTIRL,  THE  ELECTRON  DENSITY  RT  THE 
METRL-SILICON  INTERFRCE,  RND  THE'BULK  HOLE  DENSITY. 

ISO  UBLTIN=BRRIER-EFU 
DNSNRN=BKGRND 


NR  I  TE(6.  1000.>TMPTR,  EGRP.  EIU.  EIF.  EFU,  TRNSIC.-  BKGRND..  UBL  TIN 


1000  F0RNRT<2X, 
&6X.  ' TRNSIC 
RETURN 
END 


..  3Xj  '  TNPTR ' .  5.V..  'EGRF ' 7X,  'EIU ' 7X,  'EIF ' ,  7X, 
4X,  '  BKGRND  ‘.dX,  ’  UBL  TIN ' .  1 X,  1  PSEl  0 .  2 ..  > 


•EFU' . 


C 

C 


SUBROUTINE  INDEX<  I..  J,  OL  TS..  DL  TY..  KEXI T  ) 

C 

C  TROCKS  NHICH  'BOX'  OF  THE  LHTTICE  IS  OCCUFIED  BY  THE  MOUING 
C  CHHRGE  &  SUPPLIES  ITS  INDICES  < I ■ J )  HND  CORRECT  UHLUES  FOR 

C  DLTX  &  DLTY  NITH  RESPECT  TO  THHT  POINT.  HLSO  FLOGS  ON  EXIT  OF 

C  THE  CHHRGE  FROM  THE  REGION. 

C 

C 

C 

CONHON.-  ORROYSyPSK  31 ..  31 EDENS< 31 .-  31  >,.  HDENS<  31 31  £?(  31 31 

&D(  31 ..  31 E<31 ..  31 F<  31 ..  31  H<  31 .-  31  Q<  31 ..  31  QOREO<  31 ..  31  .>.• 

&DEL  T0(  31 31 ESUBX< 31 ..  31  .).•  ESUBY< 31 ..  31 IDENT<  31 ..  31  .) 

CONNONy-COEFF.  HSTHi  31  .<  31  HNEST<  31 ..  31  HCNTR<  31 ..  31  HEOST(  31 ..  3 1  ) 
&HNRTH(31.<31  ).<XDL  T<32>.-  YDL  T(  3^ XPOS<  31  .).■  YF0S<31  > 

COMnON,-REOL  -  XUIDTH..  YDEPTH^  BRRIER,  EGOR.-  TIIPTR..  OCCPTR>  UBL  TIN.  UOL  T. 
&  TRNSIC.-  QSS..  XO.  YO..  ROD.  XOEL  TO..  YDEL  TO 
COHNON/INTGR-INOX..  JNOX..  IXUDTH..  JYDFTH 
COMMON.  CNTRL-  I TMOX..  I TRMOX.  CONURG.-  SIDL  T 
COMMON.  NRMLZE  -DNSNRM,  FSINRM..  DSTNRM..  BL  TZMN 
C 

IF<DLTX.LT.O.  .>  GO  TO  100 
IF<DLTX.GT.XDLT<  1*1  ))  GO  TO  110 
GO  TO  130 

100  IF(I.EQ.l)  GO  TO  150 
DL TX=XDL T< I )+DL TX 
1=1-1 

I F< DL  TX  LT.O  .  >  GO  TO  1 00 
GO  TO  130 

110  IF( I . EQ . < IMHX-1 ) >  GO  TO  1 50 
DL TX=DLTX-XDL T( I* 1  > 

1=1*1 

IF(DLTX.GT.XDLT(  1*1  )>  GO  TO  110 
130  IF<DLTY.LT.O.  )  GO  TO  130 

IF(  DL  TY  GT.  YDL  T<  J .) .)  GO  TO  1 40 
RETURN 

130  IF(J.EQ.JNHX>  GO  TO  150 
DLTY=YDL  T<J*1>*DLTY 
J=J*1 

I F< DLTY.  LT.O.  >  GO  TO  130 
RETURN 

140  IF(J.EQ.3>  GO  TO  150 
DLTY=DLTY-YDL  T(  J  ) 

J=J-1 

I  F<  DLTY.  GT.  YDL  T<  J  )  >  GO  TO  140 
RETURN 
150  KEXIT=1 
RETURN 
END 
C 

c 
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SUBROU  TINE  EFORCE<  I,J,X,Y,OL  TX,  OLTY,EX,EY.ET  ) 

(APPLIES  INTERPOLATION  FOR  THE  X  S,  Y  COMPONENTS  OF  THE  ELECTRIC 
FIELD  AT  LOCATION  (X,Y). 


CONMON^ARRAYS^'PSK  31 ..  31  ).  EDENS<  31 , 31  >,HDENS<  31  31  )..B<31..31  )., 

&Di  31 , 31  •>..  E<31 ..  31 F<31  .•  31 ),  H(  31 ..  31  Q<  31 31  QAREA<  31 .31), 

&DEL  TA(  31 ,31),  ESUBX<  31 , 31  ),  ESUBY<  31 ,31),  IDENT(  31.31) 

CONMON.  COEFF,'HS TH(  31 , 31  ),  HUES T(  31 , 31 ),  HCNTR<  31 ,31  >  HEAS  TC^1,^1), 
&HNRTH(31,31  ),XDLT<32),  YDLT< 32 ),XPOS< 31 ),  YP0S<31  >  ^ ^  ' 

COMMON.'REALy.XUIDTH,  YOEPTH,  BRRIER,  EGAP,  TMPTR,  ACCFTR,  UBL  TIN,  UOL  T . 

&  TRNSIC, QSS, XO, YO, RAD, XDEL TA, YDEL TA 
COMMON.'  INTGRy'INAX,  JMAX,  IXUDTH,  JYDFTH 
COHHON.^CNTRL  'I  TNAX,  I TRNAX,  CONORG,  SIDL  T 
COHHON.'NRMLZE^  DNSNRM,  PSINRM,  DSTNRM,  BL  TZMN 

1 00  EN=ESUBX<  I ,  J )+DL  TXt( ESUBX(  I+1,J )-ESUBX<  I,J)  ).-XDL  T(  1*1  > 

ES=ESUB.H(  I ,  J-1  )*DL  TX*(ESUBX<  I+l,  J-1  )-ESUBX(  I.J-1  )  >'XdL  T(  1*1  ) 
EX=EN*DL  TY1!(ES-EN).  YDL  T(J) 

EN=ESUBY<  I,  J)*DL  TXt< ESUBY<  1*1 ,  J)-ESUBY<  I,  J )  ).-'XOL  T<  1*1  ) 

ES=ESUBY( I,  J-1 )*DL TXt<ESUBY< 1*1, J-1 )-ESUBY( I, J-1  )  )aXdL T< 1*1 ) 
EY=EN*DLTYi:<ES-EN).yYDLT(J) 

E  T=S0R  T(  E.Y$EX*EYtEY  ) 

RETURN 

END 


94 


SUBROUTINE  TRBJEC<KNT..  J,.  ,V..  V'..  DL  TX..  DL  TY.-  ET,  KEXIT) 

USES  ROBMS-BBSHFORTH-NOULTON  PRELUCTOR-CORRECTOR  EQ'S  TO  TRPCE 
HOLE  TRAJECTORIES.-  FOLLONING  A  FOURTH-ORDER  RUNGE-KUTTA  STARTING 
PROCEDURE. 


CONMON-ARRAYS  'FSI<  31 ..  31  ),EDENS(  31  .■  31  ) HDENS<  31 ..  3 1  Y.B(31..31  ), 
&D(31..31.>.E(3}..3i  .>.-F<31..3l  .)..H(31..31  .Y.0<31..31  >..QAREA< 31.-31  ).- 
&DEL  TA(  31 .-  31  >.-  ESUBX<  31 .-  31  ).-  ESUBY< 31 .-  31  >.-  IDENT<  31 .-  31  > 

CONNON-'COEFF.  -HSTH(  31 . 31  HNEST<  31 .-  31  >..  HCNTR<  31 .-  31 HEAS  T<  31 .-  31  .).- 
iHNRTH(  31 .-  31  ).-  XDL  T<  32  ).-  YDL  T<  32  >.-  XPOS<.  31  >.-  YPOSC  31  > 

COMNON.-  REAL.-  XNIOTH.-  YDEPTH.-  BRRIER.-  EGAP.  TnPTR..ACCPTR..  UBL  TIN.-  UOL  T.- 
&  TRHSIC.-  QSS.-  XO.-  YO.-  RAD  -  XDEL  TA  -  YDEL  TA 
COmiON-  INTGR  -INAX- JNAX.-  IXUDTH.-  JYDPTH 
CONMON.  CNTRL  ITMAX.-  I TRMAX.  CONURG.-  SIDL  T 
COMMON.- HRNLZE.-DNSNRM.-  PSINRM- DSTNRM.-  BL  TZMN 

D I  MENS  I  ON  DX(  7  ) .-  D  Y(  7  > 

IF(KNT.GT.4)  GO  TO  100 

IFYKNT.GT.  1  .>  GO  TO  SO 

DL TA=0 . 005 

TDEL  T=DL  TA-  ET 

DO  SO  K=l.-7 

0X(K.)=0. 

SO  DY(K>=0 


RUNGE-KUTTA  PROCEDURE 

90  CALL  I  NDEX<  I .-  J .-  DL  TX .-  DL  T  Y .-  K  EX  I T 

CALL  EFORCE(  I .-  J.-  X.-  Y,  DL  TX.-  DL  TY.-  EX.  EY.-  ET  > 

DX1=EX*:TDELT 

DYl^EYtTOELT 

XX=X-i-DXl  .-2.  EO 

YY=y-h0Yl-2.E0 

DL  TK=XX-XFOS<  I  .> 

dlty=^yv-ypos<j> 

CAL  L  INDE.X(  I .-  J.  DL  TX.-  DL  TY.-  KEXI T  > 

CALL  EFORCE(  I.-  J.-  XX.-  YY-  DL  TX.-  DL  TY-  EX.-  EY  -ET) 

DX2=EXtTUEL T 

DY2=EYtTDELT 

XX=X+DX2.-2.E0 

YY=Y+DY2.-  2 .  EO 

DL TX=XX-XFOS< I > 

DLTY=YY-YPOS<J) 

CAL  L  INDEX<  I .-  J.-  DL  TX.-  DL  TY.-  KEXI  T  ) 

CAL L  EFORCE(  I .-  J.-  XX. -  YY.-  DL  TX.-  DL  TY.-  EX.-  EY.-  E  T  > 

D.X3=EX*TDELT 

DY3=EYtTDEL  T 

XX=X+DX3 

YY=Y*DY3 

DL TX=XX-XPOS< I ) 

DLTY=YY-YFOS<J) 

CAL  L  INDEXi  I .  J.  DL  TX.-  DL  TY.-  KEXI  T  > 
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CfiLL  EFORCE(  I.  J.-  .VX.  YY,  OL  TS.  DL  TY,  EX>  EY,  ET > 

DX4=E}<*  TDEL  T 
DY4=EYtTDEL T 

DH<  KHT*3>=<DX1  *2 .  Ed*<  DX2+D:’i3 )+DX4  EO 
0V(  KHT*3 .)=<  OVl  *2 .  Dy2+0V'3  .>+0V4  .>.  6 .  E0 

S=S*DX(KNT+3) 

Y=Y*DY<KNT*3) 

DL TX=X-XPOS< I ) 

DLrY=Y-YPOS<J) 

CPLL  INDEX':  I:  J:  DL  TX..  DL  TY..  KEXIT  > 

CPLL  EFORCEi  I..  J..  X..  V'..  DL  TX..  DL  TY..  EX,  EY..  ET.> 

DX(KHT^■3>=EX*TDELT 
DY(KNT*3.)=EY.*TDELT 
KDBLE=3 
RETURN 
C 

C  PREDICTOR-CORRECTOR..  USING  THE  PRESENT  INTERUHL 
C 

1 00  XPRDC r=<-  55 .  EO*DX<  7 .)-55» .  EO:*DX‘:  6  >+ J7  E04:DX(  5 .>-9 .  EOtDX-:  4  >  >^24  .  EO 
YPRDC  T=<  55 .  EOWY-:  7  >-59 .  EO*DY(  6  >+37 .  EO*DY':  5  >-9 .  EOtDY<  4  >  >.--24  .  EO 
XX=X+XPRDCT 
YY=Y+YPRDCT 
DL TX=XX-XPOS< I > 

DLTY=YY-YPOS(J> 

CHL  L  INDEX<  I ..  J,  DL  TX..  DL  TY..  KEXI T  > 

IF(  KEXI  T.GT.O>  RE  TURN 

CHL L  EFORCE(  I J,  XX..  YY..  DL  TX,  DL  TY,  EX,  EY,  E T  > 

DX1=EX*:TDELT 

DYl=EYtTDELT 

XCRRC  T=(  9.  EOtDX  1+19.  EO*DX':  7  >-5.  EO*DX<  6  >+DX<  5  >  >-^24 .  EO 
YCRRC T=<  9 .  EO.*DYl  +  19.  EO*DY<  7 >-5 .  EO*DY<  6  >+DY<  5 .)  >.--24 .  EO 
DX2=HBS( XPRDC T-XCRRC T > 

D Y2=PBS( YPRDC T- YCRRC T > 

DL T^PMHXl < DX2, DY2 > 

C 

C  HHLUE  THE  INTERUHL  IF  DLT  EXCEEDS  DLTH 
C  ’ 

IF<DLT.LT.DLTH>  GO  TO  110 
C 

C  PHRHBOLIC  INTERPOLATION  COEFFICIENTS  FOR  THE  HALF  INTERUAL  UALUES 
C 

KDBLE=3 

T0ELT=TDELTy2.E0 

DX<  7  >-2 .  EOtDXc  6  >+DX<  5  >  >■  <  S .  EOt  TDEL  T*  TDEL  T  > 

£fff  *<  DX(  7  >-DX(  5  >  )  ■  <  4 .  EOF  TDEL  T  > 

AAA=<  DX(  6  >-2 .  EO:*:DX(  5  >+DX':  4  > .).  <  S .  EO*  TDEL  T*  TDEL  T  ) 

BBB=< DX(  B >-DX<  4  >  >.-<  4 .  EOFTDEL  T  > 

DX< 1 >=0X<4>/2.E0 
DX(3.>=DX<5>.-2.E0 
DX(5>=DX<6>,2.E0 

DX(  2  .)*<■  TDEL  T*(  AAA*  TDEL  T-BBB  >+DX(  3  >  >.--2 .  EO 
DX(  4  .)=<■  TDEL  T*(  AA*  TDEL  T-BB  >+DX<  5  .> .)  • .? .  EO 
DX<  6*  >=<  TDEL  T*(  AA*  TDEL  T+BB  >+DX<  5  >  >.--2 .  EO 
DX<7>=DX<7>y'2.E0 

AA=(DY<  7>-2.E0*DY(G>+DY‘:5>  >••  (  5.  EOFTDEL  T*TDEL  T> 

BB=<DY(  7  >-DY<  5 >  X-  <  4 .  EO* TDEL  T  > 
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i^hR=':  0Y<  C  .>-2 .  Ei3*0  v-;  5  4  ) .)  •  S .  EO*  TDEL  T*  TDEL  T  > 

BBB==(  D  VC  6*  )-DY<  4  )  <  4  .  E'^*  TDEL  T  ) 

DY(  I  )=DY(4).-2.E0 
DY(  3 )=DY<  5 )/2 .  ED 
DY‘:  5  >-DY< 6 >.--2 .  ED 

DY(  2  >=<  TDEL  Tt<Bi4B*  TDEL  T-BBB  )i-DY(  3)  )  ■■  2 .  ED 
DY(4)=<  TDEL  Tt<BB*TDEL  T-BB  :'i-OY':  5 > )-2 .  ED 
D  Y<  6  •>= (  TDEL  Tt<  BB*  TDEL  T+BB  .>+DY<  5  >  )-'2 .  ED 
DY(7>=DY<7>y2  ED 
GO  TO  100 
C 

C  TENTOTIUELY  DOUBLE  THE  INTERUHL..  BUT  ONLY  IF  3  STEFS  HhUE  BEEN 

C  TOKEN  SINCE  THE  LOST  DOUBLING  OR  HOLDING.-  OND  ONLY  IF  DLT 

C  IS  LESS  THON  ONE  HOLE  OF  DLTO 
C 

I  ID  IF(KDBLE.GT.D)  GO  TO  12D 
DL T=DLTt2. D 

IF( DLT.  GT.  DLTO)  GO  TO  120 

NPRDT=<  55  EOtDX(  7 )-5S  E04;DX':  5 )+37  EOWX<  3 )-9 .  E04DX<  1  >  .).■  ] 2  ED 

YFRDT=<55.E0*DY<  7 )-59  ED*DY< 5 )-t-37 .  EO-UDY-i 3 )-9 .  EOtDY<  1  )).'-i2.ED 

XX=X+XFRDT 

YY=Y+YFRDT 

DL TX=XX-XFOS< I > 

DLTY=YY-YFOS<J) 

COL  L  INDEX<  I ..  J..  DL  TX,  DL  TY..  KEXI T  ) 

IF(KEXIT.GT.O)  GO  TO  120 

COLL  EFORCE<I,J.-  XX,  YY,  DL  TX,  DL  TY,  EX,  EY,  ET  ) 

DX1=EX.*TDELT 

DY1=EYXTDELT 

XCRR  T=< 9 .  E04iDXl  +19.  EOtDX<  7  )-5 .  EO^iDX-:  5  >+DX(  3  )  )■■■  1 2 .  ED 
YCRRT=( 9 .  EOWYl+19 .  EeWY(  7 >  5 .  EO.tDY< 5 )+DY':  3 ) )yl2 .  ED 
DX2=0BS< XFRD T-XCRR T ) 

DY2==0BS<  YFRDT-YCRR T ) 

DL T=0M0X1 (DX2,  DY2 ) 

IF(DLT.GT.DLTO)  GO  TO  120 
C 

C  DOUBLE  INTERUOL  IS  OK,  SO  DO  IT 
C 

DX<7)=DX<7)t2.E0 
DX(6)=DX(5)*2.E0 
DX<5)=DX<3.n2.E0 
DX(4)=DX<  1  >.t2.E0 
DY<7)=DY(7)*2.E0 
DY(e>=DY<5>*2.E0 
DY(5>=DY(3)*2.E0 
DY(  4)=DY<  1  )t2.E0 

X=X+(19.  E0*XPRDT+251 .  EO^XCRRT .h'270,  EO 
Y=Y+<19.  E0*YPRDT+251 .  EOikYCRRT >-''270 .  EO 
TDELT=2.E0*TDELT 
KDBLE=^3 
GO  TO  130 
C 

C  NO  DOUBLING  OCCURRED.  COMPUTE  NEU  X  &  Y.  SHIFT  INCREMENTS  LEFT 
C  &  UPDOTE  THE  MOST  RECENT  INCREMENT. 

C 

1 20  X=X+< 1 9 . E0*XPROC T+251 . E0*XCRRC T >'270 . EO 
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UNCLASSIFIED 


RADC-TR-79-189 


NL 


2  OF  2 


MKKtVOr^  KtMHUllON  USI  CHAKl 


<~>o 


1$.  Ed*YPRDCTi-251 .  E0*YCRRCT >^270 .  Ed 
K0BLE=KDBLE-1 
1J0  DO  140  K=l,€ 

D>«  K)=^D>«K+1  ) 

140  DY(K)=DY<K*1) 

DL  T}<=X-}<POS(  I  > 

DLTY=‘Y-YPOS(J> 

CPL  L  imEX<  I,  J,DL  TX:  DLTY,  KEXI T  ) 

IF(  KEXI  T.GT.0)  RE  TURN 

CPLL  EFORCEi  I,  J,  X,  Y..  OL  TX,  DL  TY.  EX,  EY,  ET ) 

ETT^ETtPSINRMyDSTNRN 

IF(ETT .LT.2.E4)  KEXIT=1 

DX(7>=EX$TDELT 

DY<  7 >=rEY*TDELT 

RETURN 

END 
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SUBROUTINE  JNTGRUDS,  DY,  ETl ,  ET2,  PI,  RR,  0I1EG,PLPHN,  TiLPHP) 

C 

C  USES  TRPPEZOIDPL  RULE  FOR  THE  TUO-CHRRIER  NULTIPLICHTION  INTEGRAL. 
C  (USES  DINENSIONED  URRIHBLES.  > 

C 

C0HM0N,'HRRPYSy'PSI<31,31  ),EDENS<31,3t  ),HDENS( 31 , 31  >,B(31,31  >, 
m  31 , 31 ),  E(  31 , 31  >,  F(  31,31),  H<  31 , 31 ),  Q<  31 , 31  ),  QPREH<  31,31), 

&DEL  TP(  31 ,31),  ESUB>«  31 , 31 ),  ESUBY<  31 , 31 ),  IDENT< 31,31) 
COHMOH>'COEFF/HSTH<  31 , 31  ),  HUEST< 31 , 31 ),  HCNTR(31 , 31 ),  HEAST<31 , 31 ), 
&HHRTH(  31 ,31),  XDL  T<  32),  YDL  T<  32  ),  XPOS<  31 ),  YPOS<  31  ) 
CONHON/REHLySUIDTH,  YDEP i M, BRRIER, EGHP,  TMPTR, PCCPTR, UBLTIN, UOL T , 

& TRNSIC,  OSS, HO, YO,  ROD, HDEL TO, YDEL TO 
COMMON^  INTGR,'INOH,  JHOH,  IHUDTH,  JYDPTH 
COMHON/'CNTRL'^ITMOH,  ITRMOH,  CONURG,  SIDL  T 
COMMON.'NRMLZEyDNSNRM,  PSINRH,  DSTNRM,  BL  TZHN 
C 

DS=SQR  T(  DH*DH*D  YWY  )WS  TNRM 
ETs(ETl+<ET2-ETl  ),'4.  )*PSINRIlyDSTNRH 
COLL  TUNSND<ET,  OLPHN, OLPHP ) 

RR=RR*< OLPHN-OLFHP . 

ET=(  (  ETl  *ET2  )/2 .  )tPSINRM-^DS THRU 
COLL  TmSND<ET,  OLPHN,  OLPHP) 

OHEG=‘OMEG+OLPHP*EHP<  RR  )WS 
PI=PI+OLPHN*DS 

ET=(ETl+3.  *<ET2-ET1  )y4.  )tPSINRM,^DSTNRM 
COLL  TUNSND(ET, OLPHN,  OLPHP) 

RR=RR*<OLPHN-OLPHP  )WS,'2 . 

RETURN 

END 
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SUBROUTINE  TUHSNDi  ET.-  (iLPHN,  PLPHP  ) 


CNLCULPTES  THE  TOUNSENO  lONIZfiTION  COEFFICIENTS  FOR  ELECTRONS  PND 
HOLES  USING  CROUELL  4  SZ£, S  EMPIRICAL  FIT  FOR  BARAFF-S  CURVES 
USES  UNNORHALIZED  UAR TABLES.  (SEE  S  M.SZE^  PHYSICS  OF 
SEMICONDUCTOR  OEUICES.  PP  61-65  .) 

COHMON.'ARRAYS/PSK  31 , 31  > .  EO£NS(  31 ..  31 .),  HOENS<  31 31  >  •  31  •  31  ), 

&D<  31 , 31  >,  E<  31 , 31 F<  31 , 31  H<  31  .•  31  )..  Q<  31 ..  31  >  •  QAREA<  Z 1 . 31  .>.• 

&DEL  TA(  31 , 31 ),  ESUBS<  31 . 31 ESUBY<  31 ..  31  >..  ID£NT(  31 ..  o'  ' 

COMMON,  COEFF^HSTHk  31 ..  31 HN£ST< 31 31  >..  HCNTR< 31 31  >..  HEAS T<  31 .  J/  ) . 
&HNR TH(  31 , 31  >,  SDL  T(  32  .).•  YDL  T(  32 SPOS(  31 YPOS(  31  ) 
COMMON.'REAL,'SUIDTH..  YOEPTH,  BRRIER,  EGAP,  TMPTR>  ACCPTR.  UBL  TIN,  UOL  T . 

&  TRNSIC, OSS, SO, YO, RAD, SDEL TA, YDEL TA 
COMMON,' INTGR.  IMPS ,  JMAS,  ISUDTH,  JYDPTH 
C0MN0N,  CNTRL,'ITMAS,  ITRMAS,  CONURG,  SIDL  T 
COMMON,  NRMLZE,'DNSNRM,  PSINRM,  OSTNRM,  BL  TZMN 

ESFNT(R2,  R1  ,  S2,  SI  )=<  1 1 . 5tR2-l  1 7tRl  *3.  SE-4  .)*S2  + 

&( 46. *R2-11  9*R1 *1  75£-2)*Sl -< 757. *R2-75. 5$R1*1 . 91  ' 

TrtNHt  X  >=(  EXP<  X  .>-EXP<  -X  >  >,'<  ESP<  X  .)+EXPt'  -X  >  > 

SS=3.  15E-2.  BLTZMN 
EP^6  3E-2t TANH( XX  ) 

ELMBDA=76  OE-SFEP  '6. 3E-2 
EI=1.  5*EGAP 
R1  =CP.-EI 

P'.^sP  1  i‘0  1 

sl^EI,  (ETXELNBDA) 

.Y2-S1  tSl 

SN=ESPNT<R2, R1 ,  S2,  SI  ' 

IF(  SN  LT  -SO  .)  .XN=-S0 
AL  FHN=ESP<  SN .),  EL  MBDA 
ELNBDA=50  OE-S*EP  6  3E-2 
Sl^EI  <ET*ELMBDA.) 

S2-S1 tSl 

SH^ESPNT^RZ,  R1 ,  S2,  SI  > 

IF< SN  LT  -SO  .)  SN~-S0 . 

AL  PHF=ESP<  SN  ),'EL  MBDA 

RETURN 

END 
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SUBROUTINE  OUTPUT 
C 
C 
C 

COMMON  ' PRRt^YS  PS U  31 3i  EDENSk  31 ..  31  > .  NOENSc  31  •  31  B<  31  •  31  >. 

&0<  31  ^  31  V.  £■<  J1 ..  31  >  •  31  J/ 31  ),.  J/ J/  >..  QPREP(31..  31  >,. 

TP<  31 Ji  ESUBS(  31 ESUBY<  31 ..  J/  >  •  IDENT<  31 .  Ji  > 

COMMON.  COEFFHSTH<  31 ..  31  >..  HUEST(  31 31  >..  HCNTR<  31  •  31  )>HEPST<  31  >  31  >. 
&HNRTH(31 .31  >..SDL  Tt  JJ'.),.  YDLT<  33  SPOSk  31  >..  YP0S<31  > 

COMMON.'REPL  SNIDTH  .  YDEPTH,  BRRIER..  EGhiP..  TMFTR..  ACCPTR,  U6L  TIN..  UOL  T, 

&  TRNSIC  .  OSS  .  XO:  YO:  ROD  .  SDEL  TO..  YDEL  TO 
COMMON.  INTGR  IMOS:  JMOX..  IXUDTH..  JYDPTH 
COMMON.  CNTRL  -- 1 TNOX:  I TRMOX..  CONURG  SIDL  T 
COMMON -NRMLZE.ONSNRM. PSINRN. DS TNRM, BL TZMN 
C 

DIMENSION  SCRTCHk31  )..S\  31  Yk  31  > 

C 

DO  SO  I-1..IM0X 
SO  X(  I  ^=.YFOS(  I  >*DSTNRMil  0E4 
DO  90  J=1.JM0X 
90  Y(  J '>=YFOS<  J  >iDSTNRN*l .  0E4 
NRITEiS.  1000.) 

1000  FORMOTk  INI  .  JJ’.Y,.  'X(  /  >  •  1=1. 1 MOX  ) 

NRITEiS..  1010HX<  I).  1  =  1..  IMOX> 

1 01 1?  FORMO  T(  3ZX..  IPIOEIO.Z  > 

NRITE<6..  10Z0> 

1030  FORMOTk  1H0..5X..  'J'  '^X..  '  Y<  J  )  ' 15X  .■  '  PS  I(  I ..  J  1= 1 ,  IMOX  ' , .  ) 

DO  110  JJ=1,JN0X 
J=JM0X*1-JJ 
DO  100  I  =  1..IM0X 
1 00  SCR  rCH<  I  >=FSh  /  J  HPSINRM 

NR  I  TE(  6..  1 030  )  J..  V<  J  >..  C  SCRTCH<  n.  I =1.10  ' 

NRITE(  S:  1040  )<  SCRTCHk  IX.  1  =  11-  IMOX  ) 

1030  FORMOTdX..  '  ' 17. 5X..  1FE10.3..  lOX..  IPIOEIO.Z) 

110  CONTINUE 

1040  FORNOTk33X..  IPIOEIO  3) 

NRITECS..  1000) 

NR  I  TE<  6..  1 01 0  h.X<  I  )..  1  =  1  .  INOX  ' 

NR  I TE( 6: 1 060 > 

1060  FORMOT<  1H0.5X..  'J'.9X..  '  Y(  J  )  ‘ ..  15X..  '  HDENS<  I  ■  J  )..  1  =  1 .- IMOX '.■.■-■■ ) 

DO  150  JJ=1..JM0X 
J=JN0X*1-JJ 
DO  140  I=1.IM0X 

140  SCR rCH<  I )=HDENS< I ■ J )*DNSNRM 

NRITE<6..  1030)  J..  Yk  J)..  <SCRTCH<  I)..  1  =  1..  10) 

NRI  TE<  6..  1040)<  SCRTCH':  I  )..  1=11..  INOX) 

150  CONTINUE 

NRI  TE<  6..  1 000  ) 

NR  I TE< 6: 1010 ) < X< I). 1  =  1. I MOX ) 

NRirE(6. 1100.' 

1100  FORMO  T<  1  HO.  5X..  'J'..9X..  '  Y<  J  )  ' ..  15X ..  '  EDENS(  I ..  J  )..  1  =  1 ..  INOX '...'■■  ) 

DO  154  JJ=1..JN0X 
J=JN0X*1-JJ 
DO  153  1=1. INOX 

1 53  SCR  rCH<  I  )=EDENS<  I ..  J  )tDNSNRN 

NRITEl  6..  1030)J..  Y(  J )..  (  SC.RTCH(  I )..  1=1..  10) 
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NRI  TEk  6-  1040  .hSCRTCH<  I  ),.  1=1 1 
154  CONTINUE 

NRITE(E:..  1000) 

NR  I  rE<  e.<  1010  ><  s(  n  .  1=1:  inns  > 

NRITEi  6:  1070  ' 

1070  FORHOT<  1H0:5X:  •J‘:9X:  •Y<J>':15X:  •ESUElX<I:J):I=l:inOX':y'  ) 

DO  170  JJ=1:JM0X 
j=jtmx*i-jj 

DO  160  1=1: INOX 

160  SCRTCHk  I  }=ESUBX(  /..  J)*FSINRN  DSTNRM 

NR  I  TE(  6 : 1 030  )  J :  Y<  J  > <  SC/?  TCH<  I  >  ..1  =  1: 10  > 

NR  I  TE<  6:  1 040  X  SCRTCH<  I  >..  1=11:  INOX  > 

170  CONTINUE 

NRITE(6.  1000  > 

NR  I  TE<  6 .101 0  H  X<  I  >..1  =  1:  INOX  > 

NRITE(6..  10S0> 

lOSO  FORHOT<  1H0..5X..  'J'..9X:  'Y(J>':15X..  '  ESUEtY<  I ..  J  >..  1= 1 ..  INOX '  .  > 

DO  190  JJ=1..JN0X 
J=JN0X*1-JJ 
DO  ISO  1=1. INOX 

ISO  SCRTCH<  I  >=ESUBY<:i..  J>tPSINRN  DSTNRN 

NR  I  TE<  6 : 1 030  >  J  .■  V'.'  J  > <  SC/?  TCH<  I  >..1=1:  10  > 

NR  I  TEi  6 :  1 04  0  >(  SCR  TCH<  I  >..1  =  11:  INOX  > 

190  CONTINUE 

NRITE<6: 1000 > 

NR  I TE< 6 .101 0  '  (  X< I >: 1  =  1: 1 NOX > 

NR  I TEi 6: 1 090 > 

1090  FORHOK  1H0:5X.  'J'..9X..  'Y<J>'..15X:  '  ETOTOL(  I :  J  >..  1=1 :  INOX ' :  ) 

DO  310  JJ=1..JN0X 
J=JN0X*1-JJ 
DO  300  1=1: INOX 

300  SCR  TCH(  I  >=SOR  T(  ESUB.YY  I ..  J  >*ESUBX(  I :  J  >  *ESUB  Y<  I .,  J  .>*ESUB  Y(  J ..  J  >  .)  # 
&PSINRN.  DSTNRN 

NR  I  TE(6: 1030  >  J..  Y<J>..  <  SCR  TCH<  I  >..  1=1. 10  > 

NRITE(6: 1040. h  SCRTCHk  I ):  1=11..  INOX) 

310  CONTINUE 
RETURN 
END 
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Appendix  B 


Computer  Program  Listing 
in  a  Pt-Si 


For  Calculation  Avalanche  Breakdown 
Schottky  Barrier  Diode 


Subroutine 

Page 

MAIN 

104 

GRID 

106 

BORDER 

109 

NITIAL 

112 

GRELAX 

114 

POISSN 

115 

DNSITY 

116 

CHARGE 

117 

STONE 

118 

EFIELD 

126 

AVLNCH 

126 

VGOESS 

134 

eoulib 

135 

INDEX 

137 

EFORCE 

138 

TRAJEC 

139 

INTGRL 

143 

CRWS2E 

144 

OUTPUT 

145 
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o  r-,  n  n  n  r-, 


MfilN 


iXECUTlUE  FROGRtiN 

INiriFLIZE  FLL  t^RRFYS  TO  ZERO  UITH  BLOCK  Dt^TF  SUBFROGRtiN 

BLOCK  DFTR 
C 

COMMON-  f)RRFYSy^DUMMY<  1Z493)>  IDUNMY<961  > 

COMMON-  COEFFCOUMMYi 4931 ) 

ONTN  FDOMMY  '12493*0  ■  -  IDUMMY  '961  *0 
ON  TN  CDUMMY  '4931  *0  EC 
END 
C 
C 
C 

C0MN0N'NRRNYS-FSI<3l.-3l  >  >  EOENS(  31 . 31  >.H0ENS<3t  .31  }..B<31  -31  )- 
*D<  31 ..  31 .).  £■<  31 , 31  ),.  F<  31 31  ),  H<  31 31  Q<  31 . 31  >.-  QNREN<  31 31  >, 

*DEL  TN(  31 , 31  ),  ESUBX<  31 31  ESUBY<  31 31  >,.  IPENT(  31  .•  31  > 

COMMON-  COEFF-  HSTH<  31 31  HUESTk  31 31  HCNTRi  31 , 31  ),  HENST<  31 31  .>.■ 
&HNRTH{  31 31  >,.  SDL  T<  32  YDL  T<  32  XFOS<  31  >  ■  YFOS<  31  > 

COMMON- RENL.XNIDTH,.  YDEFTH.-  BRRIER.-  EGNF..  TMFTR.-  NCCFTR,  OBL  TIN,  VOLT, 
i TRNSIC, OSS, SO, YO, ROD, XDEL TN,  YDEL TN 
COMMON-  INTGR-'IMNX,  JMNX,  IXUDTH,  JYOFTH 
COMMON-'CNTRL  I TNNX,  I TRMNX,  CONVRG,  SIDL  T 
COMMON-  NRMLZEDNSNRM, FSINRM, DSTNRM, BL TZMN 
COMMON-' SN  TCH'NDOFE 
C 

DIMENSION  TITLE  (54) 

DIMENSION  XFNTH<  100,  3),  YFNTHdOO,  3),ET<  100-3) 

C 

NNMEL  1ST-  GEOM-  XNIDTH,  YDEFTH,  IMNX,  JMNX,  N-\NDTH,  NYDFTH, 

&XDEL TN,  YDEL TN, ROD 

NNMELIST.-FRMTRS-'NCCFTR,  BRRIER,  OSS,  TMFTR 

NNMEL  IS  T-  CONTRL  ITMNX,  I TRMNX,  CONVRG,  SIDL  T,  NVDL  T,  VL  TDL  T,  KNTMNX 
NNMEL  IS  T.'  SUI  TCH'  NDOFE 
C 

100  REND(  5,GE0M) 

REND<5,FRMTRS) 

REND<5,C0NTRL> 

REND( 5, SNITCH) 

REND<  5 , 1 000  )  (TI TL  E<  I),  1-1,54  ) 

1 000  FORMN  T<  1 SN4 1 SN4 -'  1 SN4  ) 

IXNDTH=NSNDTH 

JYDF TH=JNNX-NYDF TH* 1 

NR  I  TE<  6, 1010  .)<  TI  TLE<  I  >,1=1,54  ) 

1010  FORMNT<  1H1,60X,',30X,  1804, -',30X,  1804, .'-30X,  1804,  5X,  'SUNMORY 

iOF  INFUT  DOTO  ' 

NRITE<6, 1020)  XNIDTH, YDEFTH, IMOX , JMOX, NXNDTH, NYDFTH, 
i.XDEL  TO,  YDEL  TO,  ROD 

1020  FORMOT< 1H0,5X, 'NOMELIST  GEOM.  XNIDTH= ’ , IFEIO . 2, 2X,  'YDEFTH^', 
S,1FE10. 2, 2X,  •  IMOX=  ' ,  13, 2X,  '  JMOX=  ' 13, 2X,  '  NXND  TH= ' 13, 2X, 
t,'NYDPTH=  ’ ..  13, 2X,  ’SDEL  T0=  ' .  IFEIO  2,  6X,  '  YDEL  T0=  ' ..  1PE10.2, 2X, 

t.‘R0D=',lPE10  2,.  ) 

NR  I TE<6, 1030  )OCCFTR, BRRIER, OSS, TMFTR 
1030  FORMOT(1H0,5X,  'NOMELIST  FRMTRS-  OCCPTR= ' , IFElO  2, 2X, 'BRRIER=', 
S1PE10.2,2X, 'QSS=', IPEIO  2, 2X,  ' TMPTR=', IPEIO. 2) 
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r>  r-. 


UR  I  TE(  6, 1  e4e  >  I  THUS  .  I  TRHt^X,  CONURG,  SIDL  T  ..  RUDL  T,  UL  TDL  T, 

iKHTnus 

1 040  FORMA T< IHO, 5X. ‘HAMEL IST-  CONTRL-  I TMAS^ ‘ , / J. 2X,  ' I TRMAX* ‘ , 
&I3..2S,  ‘CONORG^'^tPElO  2. 2S..  ‘SIDLT*  ‘ IFEIO .  2> 

•AOOLT’‘‘ ,  IPEiO  2,2X.  ‘OLTOLT^  ‘ ,  IPEtO .  2, 2X.  ‘KNTMAX^'^H 
URtTE  <6>10€0)  NDOPE 

1 060  FORMA  T<  1  HO,  5X,  '  HAMEL  IST^SUl  TCH^  HDOPE*  ‘,12,  ) 

C 

CALL  IHTGRl 

CALL  AOLHCH(ULTOLT,AUOLT,XPATH,  YPATH,ET,KHTMAX) 

CALL  OUTPUT 

UOL T^PSIHRM-UBL TIH 

HRITE(6, 1050)  UOLT 

1 050  FORMA T< 1  HO, 5X,  ' BREAKDOUH  UOL TAGE= '  ,1  PE  10. 2 ) 

GO  TO  leo 

EHD 
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SUBROUTINE  GRID 


SETS  UP  THE  GRADED  LATTICE  &  CONFUTES  THE  FINITE-DIFFERENCE 
COEFFICIENTS  FOR  PSI . 

COMMON  ARRAYS- FSI<  31 ..  31  >.■  EDENSi  31 31  HDENSk  31 ..  31  B<  31 ..  31 
iDi  31 . 31  ),  E<  31 ..  31  ),.  F<  31 ..  31  >,  H<  31 ..  31  ),  Q(  31  •  31  ).  QAREA<  31 , 31 .), 
t,DEL  TA(  31 , 31  )..  ESUBS<  31  .■  31  ),  ESUBY< 31 ..  31  IDENT<.  31 ..  31  ) 

COMMON.  CDEFF  HSTH<  31 . 31  HUEST<  31 ..  31  ),  HCNTR(  31 ..  31  HEAST( 31 . 31  ). 
iHNRTHi  31 ..  31  SDL  T<  32  >..  YDL  Tk  32  >..  XPOSi  31  ),  YPOS(  31  > 
COHMON.^REAL.'XUIDTH,  YDEFTH,  BRRIER..  EGAP..  TMPTR,  ACCPTR,  UBL  TIN,  UOL  T, 

A  TRNSIC, QSS, SO, YO, RAD, SDEL TA, YDEL TH 
COMMON.'  INTGR-  INAS,  JMAS,  ISNDTH,  JYDFTH 
COMMON-'CNTRL  I  TMAS,  I TRMAS,  CONURG,  SIDL  T 
COMMON.  NRNLZE  DNSNRN, PSINRN, DSTNRM, BL TZMN 
COMMON.  RSCAL  E-.'  RSFC  TR 

FIRST  TREAT  THE  CORNER  REGION  BOUNDED  BY  SUIDTH  A  YDEFTH 


I MS= ISNDTH- 1 
S^SDEL TA 
KEY=1 
GO  TO  200 

1 00  SDL T< 2 >rSNID THtDL T 
DO  110  'I=3,I.SNDTH 
1 1 0  SDL  T<  I  )=SDL  T<  I  - 1  )$SDEL  TA 
IMS=JMAS-JYDPTH 
S=YOEL TA 
kEV=2 
GO  TO  200 

1 20  YDL  Tk  JMAS  .)= YDEP  THtDL  T 
DO  130  J=2,IMS 
JJ=JMAS-H-J 

1 30  YDL  T(  JJ  .)=  YDL  T(  JJ*  1  )*YDEL  TA 

NEST  TREAT  THE  REGION  EXTERNAL  TO  THE  CORNER  REGION  THIS  REGION 
EXTENDS  1.25  DEPLETION  UIDTHS  TO  THE  RIGHT  OF  S=SNIDTH,  HND 
BEL  ON  Y=YOEPTH.  USE  THE  METHOD  OF  SECANTS  TO  DETERMINE  THE 
MULTIPLIERS  ANALOGOUS  TO  SDELTA  A  YDELTA  LEADING  TO  A  SMOOTH 
TRANSITION  IN  THE  LATTICE  SPACINGS  AT  THE  INTERFACE  OF  THE 
TNO  REGIONS. 

kEY=3 

kSD-l 

CC=SDL  T<  ISNDTH ).'<  1 . 25*RSFCTR) 

Sl^l 

IMS-IMAS-ISNDTH 
Yl-(1  .■IMS-CC.y.'CC 
GO  TO  230 

1 40  SDL  T<  I  HAS  .)»i  .  25tRSFC  TRWL  T 
DO  150  1^2. IMS 
II‘IHAS*1-I 

1 50  SDL T< 1 1 >^SDL T< 11*1 )*S 
kED=2 

CC^YDL  T<JYDPTH*1  ).-(l.  25tRSFCTR.> 

Sl^l . 


inX=JYOPTH-l 

v'i*(  i  ■■  I nx-cc '  cc 

GO  TO  S30 

1  GO  YDL  T< 2  )~J  25tRSFC TRtDL  T 
DO  iro  J=3-JYDFTH 
iro  YDLTi.  J>=YDLT(J-1  HS 
SDL  r<  i  ^-SPL  T<  3  > 

SDL  T<  INi^X*  1  >*XnL  T(  INtiX  ) 

YOLT(  1  >^YDLT<3) 

YDL  T<  JMtiX*l  )=YDL  Jf'mX  > 
iT 

C  FIHITE-DIFFERENCE  COEFFICIENTS 
C 

DO  1?5  I=1IN^X 

DO  175  J=1.JN0X 

SN{i=<  SDL  T<  I  ^-^XDL  T<  1*1  )  >/3 

Vrt(<=<  YDL  T<  J  )*YDL  T(  J*  1  )  ).  .? 

ONREN(  I ..  J  )=XY)U*YO{i 
HSTHi  I  .J  )=Sm-' YDL  T<J> 

HNEST<  I  .  J>=YNU  SDL  T':  I  > 

HE  AS  T<  I ..  J  '= Vrtl'  '.VOL  T<  1*1  > 

HNRTH':  I,  J  ^=SAV  YDL  Tk  J*}  > 

1  75  HCN  rR<  I ,  J  )=-<  HS  TH<  I ..  J  >*HNES  T<  I ,  J  )*HEAS  T<  I  •  J  >*HNR  TH<  I .  J  >  ) 

C 

C  TABULATE  THE  S  A  Y  COORDINATES  OF  THE  LATTICE 
C 

SP0S<  1  >=0 
YPDSi JNAS)=0 
DO  ISO  1=2: I  NAS 
ISO  SP0S< I >=SPOS<  I-l  >*SDL r< I } 

DO  190  J=2.JNAS 
JJ=JNAS*1~J 

1 90  YPDS< JJ )=YPOS< JJ* 1 ) * YDL T< JJ+ 1 ) 

GO  TO  270 
C 

C  INSTRUCTIONS  200  THROUGH  220  ARE  A  SUBPROGRAM  FOR  CALCULATING 
C  THE  NIDEST  NORMALIZED  INCREMENT  DLT 
C 

200  EPSL0N=1  ~S 

IFtEPSLON.LT  1  E-3>  GO  TO  210 
DL  T=(  1  .  -.V.)/<  1  .  -SttIMS) 

GO  TO  220 

210  DLT=1  -< IMS-1 )*EFSL0N  2. 

DL T=1  < IMStDLT ) 

220  GO  TO( 100, 120, 250): KEY 
C 

C  INSTRUCTIONS  230  THROUGH  2G0  ARE  A  SUBPROGRAM  FOR  FINDING  DLT 
C  USING  THE  METHOD  OF  SECANTS 
C 

C  FIRST  INCREMENT  SI  &  S2  UNTIL  Y1  &  Y2  HAUE  OPPOSITE  SIGNS. 

C 

230  S2=S1-0.O2 

Y2=< 1  -S2)  < 1 . -S2t*INS  ) 

Y2=Y2*S2*  t< IMS-l  ) 

Y2=(  Y2-CC  y-  CC 
IF(Y1*Y2.LE.0.  )  GO  TO  240 
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.Vi=.Vw=' 

yt=)^ 

GO  TO  230 

METHOD  OF  SECHNTS 

2-i0  0EN=y2-Yi 

S=‘<Slty2-S2tyi  >  DEN 
GO  TO  200 

250  y=OLTtSti( IMS-1  ) 

v=^  y-cc}  cc 

IF(HBS<y)  LT  0  01  t  GO  TO  260 

St=S2 

yt=y2 

S2=S 

y2^Y 

GO  TO  240 

260  GO  T0<.  140..  160  }..kED 
270  RETURN 
ENO 
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SUBROUTINE  BORDER 
C 

C  NSSICNS  BOUNDtiRY  CONDITIONS  BY  MODIFYING  THE  FINITE- 

C  DIFFERENCE  COEFFICIENTS 

C 
C 
C 

COMMON  HRRHYS^'FSK  J1  •  31  V.  EDENS<  31 .31  >  •  HDENSC  31  -31  '  ■  B<  31  ■  31 
i£»<  JI .  31  >..  f  (  31 ..  31  V.  Fv  31 . 31  >..  Hk  31 31  '  •  31  ■  31  V.  QHREHk  31  .■  31  >.■ 

iDEL  TH(  31 ..  31  >..  ESUBS(  31 ..  31  V.  ESUBYk  31 .31  '  •  IDENTk  31  •  31  > 

COMMON.  COEFF  HSTH<.  31 . 31  ' .  HNESTk  31 . 31  >  •  HCNTRk  31  •  JJ  V.  HEHSTk  31  .■  Jl  > 
S,HNRTH1  31  .  )  ..Hm  T^  33  Y.  YDL  T<  33  \.  SFOS<.  31  VPlIS^  J1  ' 

C0NN0N.'REHL  SUIDTH,  YDEFTH..  BRRIER  .  EGHF .  TMFTR,  HCCFTR,  UBL  TIN,  UOL  T  . 
«  TRNSIC,  OSS,  .\’0.  rO .  ROD,  .WEL  TH,  YDEL  TH 
COMMON.  INTGR  IMHS, JMHS, ISUDTH, JYDFTH 
COMMON.'CNTRL  '/  TMH.S,  I  TRMBX,  CONURG,  SIDL  T 
COMMON.  NRMLZE  DNSNRM, FSINRM, DSTNRM, BL TZMN 
C 

CIRCLEi S. Y.R>=Xt\*YtY-RtR 
FOINT(Z,R>=SORT<R$R-Z*Z) 

C 

DO  SB  I=1,IMHS 
DO  SO  3=^1,  JNHS 
FSU  I  ,J)=0 
HDENSk  I  ,J>=0 
ESUBSk  I,J)=0 
ESUBY<  I,J)=0 
SO  IDENTkI,J)=0 

C  THE  LONER  BORDER,  NHERE  FSI=0 
C 

DO  lOB  1  =  1, I  MBS 
HSTHk  I  ,  I  )=0 
HNESTk  I,  1  '>=0. 

HCHTR< I, 1 )=1  EO 
HEABT<  I,  1  >=0. 

H;  R  THi  1 ,  1  >=0 

100  Q<.i,n=o. 

c 

c  THE  RIGHT  BORDER,  NHERE  FSI=0 
C 

.DO  IIB  J=1,JNH.Y 
HSTHi  IMOX,J)=0 
HUEST<  IMHX,J.'>=0 
HCNTR<  IN0X,J>=1  EO 
HEOST<  IMHX,J.>=0 
HNRTH^  IM0X,J)=0. 

110  Q(  I  MN.X,J  >=0. 

C 

C  THE  UPPER  BORDER,  NHERE  DPSI.  DY=0. 

C 

DO  130  I=IXNDTH, IMPS 
HNRTH<  I,JH0X)=0 

1 20  HS  TH<  I ,  JMHX  >=2 .  EOtHS  TH<  I ,  JMOX ,) 

C 

C  THE  LEFT  BORDER,  NHERE  DFSI  DX=0. 

C 
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DO  1J0  J~1.JYDPTH 
HHEST<  1,J>=0. 

1 30  HEOSU  I ,  J  .)=2 ,  E0*HEOS  T<  1,J> 

C 

C  THE  CORNER  RECION 
C 

N0=,\POS(  IXUDTH)-RHO 
Y0=YP0S( JYDP TH >~RPD 
1=1 

140  J=JHPS*1 
150  J=J-1 

IF  (J.LT.JYDPTH)GO  TO  ISO 
IF  (XPOS<I>  GT.X0)GO  TO  170 
160  HSTH(I,J)=0. 

HHEST<  I,J)=0. 

HCNTRi  I.J)=1  EO 
HEfiST<  I.J>=0. 

HHRTH( I, J>=0. 

Q(I..J>=i.O 
IDENT(  I,J)=~1 
GO  TO  150 

170  IF(YPOS<J)LE.Y0)GO  TO  160 

TEST  TO  DETERMINE  IF  THE  POINT  IS  EXTERNAL  TO  THE  CIRCLE. 

XP=XP0S( I >-X0 
YP=YP0S(J.)-Y0 
TSTP=CIRCLE<XP,  YP.  ROD  > 

IF<TSTP.L£.0.  )G0  TO  160 

FIND  THE  UEST  &  NORTH  DISTANCES  TO  THE  BOUNDPRY.  FIRST 
DETERMINE  UHICH  POINTS  PRE  PLSO  EXTERNPL,  IF  PHY. 

XH=XP0S( I-l >-X0 
YN=YP0S<J*1 )-Y0 
TS TU=CIRCL E( XU, YP, RPD > 

TSTN=CIRCLE<XP,  YN^RPD.) 

XU=XP0S<I-1.) 

IF(  TSTU.LT.0.  .)XU=X0+POINT<  YP,  RPD > 

IF(TSTU.LT.0.  )  IDENT<I,J)=1 
XU=XPDS< I )-XU 
YN=YP0S<J+1  > 

IF(  TSTN.LT.0.  )YN=Y0-t-POINT<XP,RPD) 

IF(TSTN.LT.0.  )  IDENT<  I..J>=1 
YN=YPDS<J)-YN 
XUU=XDLT(  n,'100. 

YNN=YDLT<J>,'1O0. 

IF <XU.lt.  XUU .OR.YN.lt.  YNN >  GO  TO  1 60 

MODIFY  HUEST  &  HNRTH,  TO  PCCOUNT  FOR  THE  CIRCULPR  BOUNDPRY . 

XPV=(XDL T( 1*1 )*XU)/2. E0 
YPU=(  YN*  YDL  T<  J .) ,)/ 2 .  EO 
HHEST<I,J)=YP<J^XU 
HNRTH<  I,  J>=XPOy  YN 

HCNTR<  I,J>=~<HS TH<  I ,  J )+HUES T<  I ,  J >*HEPS T<  I ..  J >*HNR TH<  1,J>.) 
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c 

C  MODIFY  TO  (ACCOUNT  FOR  THE  PORTION  < ASSUMED  P 

C  TRIPHGLE)  ECLiPSEO  BY  THE  CIRCLE. 

C 

SI  =XPOS<  I  >~SDL  T<  I  >-'2 .  £0 
YI  =  YPDS<J)-YDL  T<J*1  >y'2.E0 
XP^Sl-SO 
YP«Y1-Y0 

TSTP«CIRCLE<XP, YP,RPO> 

C 

C  IF  (TSTP.GE.O.)  NO  PREP  IS  ECLIPSED 
C 

I F( TSTP.GE.O.  )G0  TO  ISO 

Y2^POINT<XP..RPD>-t-YO 

X3=‘PDINT<YP,RP0)i-X0 

QPREP<  I,J)==QPREP(  I,  J.y-<  Y2-Y1  )$<X3-Xl  )^2.E0 
GO  TO  ISO 
C 

C  INDEX  I  A  CONTINUE  UNTIL  I . GT  IXNDTH 
C 

ISO  I^I+l 

IF<  I  LE .  IXUDTH.'>  GO  TO  140 
IHPXX=inPX-l 
DO  190  I«1.>IHPXX 
DO  190  JI=2..JNPX 

190  IF(  IDENT<  I..J.>.LT.0>  PSK  I >  J .^^l  .  0 
RETURN 
END 
C 
C 
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SUBROUTINE  NITINL 


C 

C  SUPPLIES  INITIAL  ESTIMATE  FOR  PSKI.J),  USING  THE  DEPLETION 

C  NPPRONINNTION 


COMMON  fiRROYSyPSK  31 , 31  >.•  EDENS<  31 . 31  >.  HDENS<  31  .■  31  ),  B<  31 ..  31  ), 
i.D(  31 31  f<  31 , 31 .),  F<  31  >  31  >,  H<  31 .31  >,  Q<  31 31  >..  QNRE(i<  31 31  ), 

&DEL  Ti4(  31 , 31  >..  ESUB>i<  31 , 31  >.  ESUBY<  31 ..  31 .).  IDENT(  31 ..  31  > 

COMMON.  CDEFF  -  HSTH<  31 , 31  HUEST<31 ..  31  >..  HCNTR<  31 ..  31 HENST<31 ..  31  >, 
&HNRTH(  31 31  )..XDL  T<32)..  YDL  T<  32 >..  XPOS< 31  >..  YF0S<31  > 

COMMON.  REillL  'XUIDTH..  YDEPTH,  BRRIER..  EGBP,  TMPTR..  BCCPTR..  UBL  TIN,  MOL  T, 

&  TRNSIC,  QSS:  SO:  YO..  RND,  XOEL  TN  ,  YDEL  M 
COMMON.-  INTGR  IMNX,  JMNX,  ISNDTH,  JYDFTH 
COMMON.' CNTRL  ITMOX..  I  TRM/iX,  CONURG,  SIOL  T 
COHMON.'NRHLZE.  DNSNRH,  PSINRM,  DSTNRM,  BL  TZMN 

RD=RND*1 . 0 
1=1 

THE  HORIZONTAL  SHEATH 

100  J=JYDPTH 
110  J=J-1 

IF<J.EQ.l.)  GO  TO  120 
RR=YFOS<  J>-YO 
IFiRR.GE  RD)  GO  TO  120 
FSKI,  J>=(RD-RR)$<RD-RR) 

GO  TO  110 
120  1=1+1 

IF< I. EO. I MAX . OR . XPOS( I ).GT. XO )  GO  TO  1 30 
GO  TO  leo 
130  IH=I-1 
J=JMAX 

THE  VERTICAL  SHEATH 

140  l=IKUDTH 
150  1=1+1 

IF< I  EO. IMAX)  GO  TO  ISO 
RR=XPOS<  I  .)-X0 
IFLRR.GE  RD.y  GO  TO  160 
FSI(I,J  >=<  RD-RR  )*<  RD-RR .) 

GO  TO  150 
160  J=J-1 

IF<J.EQ.1.0R.  YPOS<  J).GT.  YO  >  GO  TO  1 70 
GO  TO  140 

THE  CIRCULAR  CORNER  SHEATH 

170  I=IM 
ISO  1=1+1 

IFCI.EO.IMAX)  GO  TO  ISO 
XP=SPOS< I >-X0 
YP=YPOS<J>-YO 
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RR^SQR T< XPtXP* YP$YP ) 
IF(RR  LE.RRO)  GO  TO  ISO 
IF(RR.GE.RD>  GO  TO  190 
PSKI.J  >^<  RD-RR  )*<  RD-RR  ) 
GO  TO  180 
190  J‘J-1 

IF<J.LE.1>  RETURN 
YP*YPOS<J)-YO 
IF(YP.GE.RD)  RETURN 
GO  TO  170 
END 
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SUBROUTINE  GRELi^X 

IHPLEHENTS  GUNNEL'S  RELOXNTION  PLGORITHN  FOR  PS  I 


CONNONy'PRRPYSyPSK  31 , 31  >,  EDENS( 31 ..  31  >,  HDENS(  31 , 31  >,  B(  31 ..  31 
iD(  31 , 31  >,  E< 31 , 31  ),  F<  31 ..  31  >,  H(  31 .31),  Q<  31 , 31  ),  QPREB<  31 , 31  ), 
iOEL  TP(  31 , 31 ),  ESUBX< 31 , 31  ),  ESUBY<  31 , 31  ),  IDENT(  31 , 31  ) 

CONNOHy'COEFF  'HSTH<  31 , 31  ),  HUESK  31 , 31  >,  HCNTR<  31 , 31  ),  HEBST(  31 , 31  >, 
t,HHRTH(  31 , 31  >,  XDL  T(  32  >,  YDL  T<  32  ),  XPOS<  31  ),  YPOS<  31  > 
CONNONyREPLy'XUIDTH,  YDEPTH,  BRRIER,  EGPP,  TNPTR,  BCCFTR,  UBL  TIN,  UOL  T, 
t TRNSIC, OSS, XO, YO, RPD, XDEL TP, YDEL TP 
CONNON.'  INTGRyINPX,  JNPX,  IXUDTH,  JYDPTH 
CONNON/CNTRL  I TNPX, I TRNPX, CONURG, SIDL T 
CONNON.'MRNLZEyDNSNRN,  PSINRN,  DS  TNRN,  BL  TZNN 
C 

ONEGP^l.6 

IT^l 

INPXX=INPX-1 
100  DLTNX=0 

CPLL  DNSITY 
CPLL  POISSN 
DO  no  I=1,INPXX 
DO  110  J‘2,JNPX 

DL TNX^PNPXl < PBS< DEL TP( I, J)), DL TNX ) 

PSK  I,  J>=PSI<I,  J)*ONEGP*DEL  TP(  I,  J> 

IF<PSI(  I,J>.LT.O.  )  PSI<I,J)=0. 
no  CONTINUE 
0NX=0 . 

DO  500  I=^1,INPXX 
DO  500  J=2,JNPX 

IF<PBS<DELTP<  I,  J)>.LE.DNX)  GO  TO  SOO 
DNX‘PBS<DEL  TP<I,J)) 

//*/ 

JJ=J 

500  CONTINUE 

UR I TE< 6, 5000 )  DEL TP< I I, JJ), II , JJ 
5000  FORNPT<  1H0,5X,  'NPX  DELTP  IN  GRELPX  IS  ' ,  IFEll .  3,  IX, 
i'PT  COORDINPTE  <  ' ,  12,  12,  '  )'  > 

I F<DL TNX. LE. CONURG)  GO  TO  120 
IT=IT*1 

IF<  IT.GT.  ITNPX)  GO  TO  130 
GO  TO  100 

120  UR1TE<6,1000)  IT 

1000  FORHPT<1H0,5X,I5,  '  ITERPTIONS  UERE  REQUIRED  IN  GRELPX',.'.') 
RETURN 

130  URITE<€,1010)  DLTNX,  CONURG' 

1010  FORNPT<1H0,5X, 'NPX I NUN  ITERPTIONS  UERE  EXCEEDED  IN 
iGRELPX.  DL  TNX=  ' ,  1FE10.2,  '  CONURG^  ' ,  IFEIO.  2, ) 

STOP 

END 

C 

C 
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SUBROUTINE  POISSN 

SOLOES  POISSONS  EQUATION  USING  STONES  METHOD. 


COMMONyARRAYSyPSK 31 . 31  EDENS< 31 ..  31  >,  HDENS< 31,31  >,B<31, 31  >. 
t,0(  31  .-31),  E( 31 ,31.),  F< 31 , 31  >,  H<  31 , 31 ),  Q<  31 , 31  >,  QAREA<  31,31), 
iOEL  TA(  31 , 31  >,  ESUB>« 31 , 31 ),  ESUBY<  31,31),  IDENT(  31,31) 
COHMONyCOEFFyHSTH< 31 , 31  ),HUEST(31,31  ),HCNTR< 31 , 31  ),HEAST<31,31  ), 
S,HNRTHl  31 , 31  ).■  XDL  T<  32),  YDL  T(  32),  XPOS<  31),  YPOS<  31  ) 
COMMON.'REALyXUIDTH,  YDEPTH,  BRRIER,  EGAP,  TMPTR,  ACCPTR,  UBL  TIN,  UOL  T, 

&  TRNSIC,  QSS,  .W,  Y0,  RAD,  XDEL  TA,  YDEL  TA 
COMMON  I  NT  GR/ 1  MAX,  UMAX,  IXUDTH,  JYDPTH 
COMMON/CNTRL/ITMAX, I TRMAX, CONURG, SIDL T 
C0MM0H/NRML2E,'DNSNRM,  PSINRM,  DSTNRM,  BL  TZMN 

DIMENZR  ••  T.ZRGEU<  31,31) 

DO  100  I=1,II1AX 
DO  100  J=1,JNAX 
PSIHEU<I,J)=PSI(I,J) 

B(  I,J)=‘HSTH<  I,J) 

D(I,J)=HUEST<I,J) 

E(I,J)=HCNTR<I,J) 

F<  I,J)=HEAST(  I,J) 

100  H(I,J)=HNRTH(I,J) 

CALL  CHARGE 

ITERATIUE  STONE'S  METHOD 

ISTOHE=0 

ITR=1 

110  ISTONE^ISTONE*! 

CALL  STONE< ISTONE, IMAX, JNAX, RESID, PSINEU) 

IF(RESID.LE.SIDLT)  GO  TO  120 
ITR=ITR+1 

IFdTR.LE.  ITRMAX)  GO  TO  110 
HRITE(6,1000) 

1000  FORMAT<1H0,  IX, 'MAXIMUM  ITERATIONS  EXCEEDED  IN  POISSN',^') 

STOP 

120  DO  130  1=1, IMAX 
DO  130  J=1,JMAX 

130  DEL TA( I,J)=PSINEU< I,  J)-PSI(I,  J) 

NRITE(6,5000)  ITR 

5000  F0RMAT<2X,y'^,2X,  I5,1X,  'ITERATIONS  HERE  REQUIRED  UITH  STONES  METHOD 
&IN  POISSN') 

RETURN 

END 
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SUBROUTINE  ONSITY 

USES  BOLTZHBNH  VISTRIBUTIONS  FOR  THE  HOLE  A  ELECTRON  DENSITIES 


COHHON.'NRRf>YS/PSI<  31 , 31  ),  EDENS<  31 , 31  >,HDENS<  31 ..  31  ),B(31..31  ), 

&D(  31 31  >,  E< 31 . 31 ),  F( 31 , 31 ),  H<  31 . 31 ),  0< 31 . 31 ),  QPREB<  31 ..  31  >, 

S.DEL  TB(  31 , 31  ).-  ESUBX<  31 . 31  ESUBY<  31  ..31),  IDENT(  31 , 31 .) 

COMNON.'COEFF^HSTH<31 , 31 ),  HUEST<31 , 31  ),  HCNTR<  31 , 31  ),  HERST(  31 , 31  ), 
&HNR  TH(  31 , 31  ),  XOL  T(  32  ),  YDL  T<  32  >,  XF0S<  31  ),  YPOS<  31  ) 
COHNON.'RCPL^'XUIOTH,  YOEPTH,  BRRIER,  EGPP,  THPTR,  PCCPTR,  UBL  TIN,  UOL  T, 

A  TRNSIC,  OSS,  Xtr.  Vtl,  RPO,  SDEL  TP,  YDEL  TP 
COMMON.' INTGRy IMPS,  JMPX,  IXUDTH,  JYDPTH 
COMMON.- CNTRLy' I TMPX,  I TRMPX,  CONURG,  SIDL  T 
COMMON.  HRMLZEy'DNSNRM,  PSINRN,  DSTNRM,  BL  TZMN 

EFPCTR=PSINRM.  BL TZMN 
DO  130  I=1,INPX 
DO  130  J=1,JMPX 
IF(1DENT<I,J>.LT.0)  GO  TO  130 
EXPHT=PSI< I,J)*EFPCTR 
IF<EXPNT,.GT.80.  >  GO  TO  100 
HDENS<  I,  ^>=1. 0.'EXP<EXPNT  ) 

GO  TO  110 
100  HDENS<  I,J.>=0. 

110  UOLT^PSINRM-UBLTIN 

EXPNT^Z.  tPLOG(  TRNSIC.  DNSNRM )-^< PSINRM.tPSI<  1 ,  J)-VOL  T >.-'BL  TZMN 
IF<EXPNT.LT.-S0.  )  GO  TO  120 
EDENS< I ,  J )=EXP< EXPN T ) 

GO  TO  130 
120  EDENS<  I,J)=‘0. 

130  CONTINUE 
RETURN 
END 
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SUBROUTINE  CHNRGE 
C 

C  CRLCULRTES  THE  CHARGE  TERNS  IN  GUNNELS  NLGORITHN 
C 
C 
C 

CONNONyNRRNYSy'PSK  31 . 31 .),  EDENS<  31  .■  31  >.<  HDENS(  31 ..  31 B<  31 ..  31  ), 

&0(  31 ..  31  >,  E<  31 , 31  >,  F<  31 . 31  ),  H(  31 . 31  ),  0<  31  .■  31 31 ..  31  ), 
iOEL  TR<  31  j  31 ESUBX<  31 31 ESUBY<  31 . 31  >,.  IDENT<  31 31  ) 

CONNONy  COEFFyHSTH< 31 ..  31  >..  HUEST<  31  .<  31  >..HCNTR<  31 ..  31  >,  HEBST< 31 . 31  ), 
S.HNRTH(  31 . 31 SDL  T<  32)..  VOL  T<  32  )..  SPOS<  31 ,).  YPOS<  31  ) 
CONNON.-REPLySUIDTH..  YDEPTH.  BRRIER.  EGPP.  TNPTR..  PCCPTR.  UBL  TIN.  UOL  T. 

4  TRNSIC. QSS: SO. YO. RAD. SDEL TA. YDEL TA 
CONNON.'  INTGR.  INAS.  JNAS.  ISUDTH.  JYDPTH 
CONNON.'CNTRL.'ITNAS.  ITRNAX.  CONURG.  SIDLT 
COHNON.^NRNLZE.^'DNSNRN.  PSINRN.  DSTNRN.  BL  TZNN 
C 

ALPHA=PSINRN.'BL  TZNN 

INASS=INAS-1 

DO  100  1=1. I NASS 

DO  100  J=2.JNAS 

IF(IOENT<  I.J)  LT.O)  GO  TO  100 

Q(I.J>=1 . *EDENS( I, J>-HDENS< I . J )-ALPHA*< EDENS( I . J >+HDENS( I . J > )* 
&PSI<I.J) 

Q(  I.J  >=2 .  tQ<  I .  J  )$()AREA<  I.J) 

E<  I.J)=E(  I.J)-2.  $<EDENS<I.J)*HDENS<I.J))$ALPHA*QAREA<  I.J) 

100  CONTINUE 
C 

C  MODIFY  Q  AT  THE  UPPER  BORDER  TO  INCLUDE  SURFACE  CHARGE  QSS. 

C 

II=ISNDTH^1 
DO  110  I=II.INAS 

110  Q(I.JNAS)=Q<I.JNAS)-QSS*<SDLT<I)*SDLT(I*1  )) 

RETURN 

END 

C 

c 
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SUBROUTINE  STONE<  ISTONE,  KMi^X,  RESID,  T) 
INPLEMENTS  STONE'S  METHOD  FOR  HNTRIX  Ff^CTORIZPT ION 


COMMON 'NRRNYSy'PS I (  31 , 31  EDENS<  31 , 31  >,  HDENS<  31 31  > .  B(  31  •  31 
i£>(  31,31  >,E(31.31  ),F<31,31  ),H<31,31  ),Q<31,31  >,  OPREP<  31 ..  31  ), 
iOEL  Tti(  31 , 31  ),  ESUBXi  31,31),  ESUBY<  31 , 31  ),  IDENTk  31 , 31  ) 

COMMON,  COEFF,'HS  TH<  31,31),  HUES  T(  31 , 31  ),  HCN  TR<  31 , 31  ),  HEfiS  T(  31 , 31  h 
S.HNR  TH<  31 , 31  ),  SDL  T<  32  ),  YDL  T<  32  ) ,  SPOS<  31  ),  YPOS<  31  ) 

COMMON  'REPL'SUIDTH, YDEPTH, BRRIER, EGPP,  TMPTR, BCCPTR, UBL TIN, UOL T . 

&  TRNSIC, OSS, SO, YO, ROD, SDEL TP, YDEL TP 
COMMON/CNTRL  ITMPS, ITRNPS, CONURG, SIDL T 
COMMON,  HRHLZE,'DNSNRH,  PSINRM,  DSTNRM,  BL  TZMN 

DIMENSION  T< JMPS, KMPS ) 

DIMENSION  EE<  31 , 31  ),  FF<31,31  ),  U<31 , 31  ),  PLPHPdS) 

DEFINE  FREQUENTLY  USED  FUNCTIONS.^N  FOR  FORUPRD  K,R  FOR  REUERSE) 

BNi  BDUMNY,  EDUMNY  >-BDUnNY,'(  1  .  E0*PLPH*EDUt1t1Y  ) 

CNiODUNMY,  FDUMHY  )=D0Uni1Y-  <  1  EO*PLPHtFDUMMY  ) 

DNl < EOUMMY, FDUNMY )=BBt< PLPHtEDUMNY-FDUMNY ) 

DN2< FDUMMY,  EDUNtlY )=CC*( PLPHtFDUtlNY-EDUMNY  ) 

EN(  FDUMMY,  EDUMMY  >=< FDUtlMY-PLPHtBBtEDUNtlY )yDD 
FH(  HDUMMY,  FDUMMY  )=<  HDUMMY-PLPHtCCtFDUMMY ),  DD 
BR<  HDUMMY,  EOUMMY  )=HDUMMY.  (  1 .  EO*PLPHtEDUMMY ) 

CRiDDUMMY, FDUMMY  >=ODUMMY,< 1 . EO+PLFHFFDUMMY ) 

DRK  EDUMMY,  FDUMMY  )=BB.*<  PLPHtEDUMMY-FDUMMY  ) 

DR2( FDUMMY, EDUMMY )=CCt< PLFHtFDUMMY-EDUMMY ) 

ER( FDUMMY, EDUMMY >=<  FDUMMY-PLFHtBBUEDUMMY)  DD 
FR<  BDLIMMY,  FDUMMY  )=<  BDUMMY-PLPHtCC*FDUMMY  ),  DD 

ISTONE  FLPGS  UHICH  PLPHP  TO  USE  PND  UHETHER  FORUPRD  ( ISTONE  ODD) 
OR  REUERSE  (ISTONE  EUEN)  INDEXING  OF  K  IS  TO  BE  IMPLEMENTED. 

IF< ISTONE. GT  IS)  IST0NE=1 
PLFH=NLPHP< ISTONE) 

JMPXX=JMPX-1 
KMNXX=KMPX-1 
J=2t:(  ISTONE  -2) 

IF<  J.EQ. ISTONE)  GO  TO  170 

ISTONE  IS  ODD.  INDEX  K  FORUPRD 


THE  CORNER  POINT  <1,1) 

DD=E( 1,1) 

EE(  1 , 1  )=F(  1 , 1  ).DD 
FF(  1 , 1  )=H<  1 , 1  ),-DD 

R=Q(  1 , 1  )-<  E<  1,1  )tT<  1 , 1  )-t-F<  1 , 1  )tT<2, 1  )*H<  1 , 1  )*T<  1 , 2  )) 
RR=PBS(R) 

RESID^RR 
U(  1 , 1  )=R,'DD 
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IF<  liBS^  U<  1,1))  LT  1  E~7)  V<  /  .  1  )»0 

THE  ROH  K*l,  EXCLUDING  THE  RIGHT  CORNER  POINT 

DO  100  J^2,JNHXS 

JP=J*1 

JN=J-1 

CC==CN(D<J,  1  FF^  JN,  1  >  ' 

DD^E(  J- 1 )*DN2\  FF< JN, 1  > . ffi  JN, 1 )  ' 

EE<J,  1  )=F<J,  1  )s'00 

FF(  J,  1  )-FNi.  H<  J,  1  '>,FF<,JN.  1  '  > 

r*Q(J,i  )-<Okj,i  htkjn.i  ^*EKj,mrKj.i  ^^F^j-ntiK  jp.i  ^*hkj.i  '« 
g,TK  J,^  >  > 

RR=HSS<  R  ' 

IF  kRR  GT.RESID)  resid=rr 
Ui:j.  1  '>=(R-CCtUK  JN,  I)''  DO 
100  IF(OBS(UKj,n)  LT.l  E-7)  L\J,n=0 

THE  CORNER  POINT  <JNHX, !  ' 

J-JNBS 

JN^JMOXX 

CC=CN(.  D<J,  1  ^.FF(JN.  1  '  ' 

0£»*f (  J,.  J  )*DN2<  FF<  JN,  1  ) . f£v  JN-l  " 

EE(J,  1  )=0 

FFi  J,  1  )=FN<  H',J,1  ' .  FFk  JN  ■  1  )> 

R=0(.  J,  1  )-<Dk  j,  1  )*  r<  JN,  1  ^*E(J,  1  >*  J.  1  J,  1  '«Ti  J.  J  '  ) 
RR^HSSkR) 

IFkRR  GT  RESID)  RESID^RR 
('i  J,  1  )=<  R-CC*U<JN-  1  '>'>  DO 
IF<HBS<  U<  J,  1))  LT.l.E-7  )  U<  J,  1  >*f> 

HLL  RONS  EXCEPT  RON  KNHX 

DO  120  K=2,KNHXS 

KP=K*-1 

KN=K-1 

THE  LEFT  BORDER  POINT 

BB=BHk  B<  1 ,  K  >  ,  EE<  1 ,  KN  >  > 

DD=E(  1 K)*0N1  <EE<  1 ,  KN  FFk  1 ,  KN '> '> 

EE(  1  ■  K)=EN<F<  1 ,  K),  EE<  1,KN^) 

FF(  1  ■  K  '*H<  1 ,  K  y  DD 

R‘Q(  1 ,  K)-<B(  1 K  )tT(  1  .  KN  >*E<  1 ,  K  )*  T<  1  .  K  >*F<  1 ,  K  >tT<2,  K  >+«(  1 ,  K  )t 
&  T<  I ,  KP  > .) 

RR=HBS<R) 

IF<RR  GT  RESID)  RESID^RR 
(H  1 ,  K  )*V  R-BB*Uk  1,KN)  y  DD 
IF<  HBS(  U(  I,K)).LT.  1  E-7)  ('(  I  ■  K  )=0 

THE  RON  K  EXCLUDING  THE  RIGHT  BORDER  POINT 

DO  110  J=2,JNHXX 

JP=J-H 

JN»J~1 
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BB=BNi.  Bk  J.K).EEk  J.kN'>> 

CC=CNiPk  J.K  JA/.F  '  > 

00=Ei  J  •  K  VPNl  \  EE\  J .  kN  FF-,  J,.  >-tON2K  FF<  JN,  K  > .  EE<  JN..  K  )  ' 

EE<  J.  k  ^=EH'.  F<J.k'>.  EE‘,  J.kN)) 

FF(  J.k  ^=FN\  H\J.k'>.  FF*>  JN ■  K  '  > 

R=Qi  J .  k  >-<  £?(  J .  ' <S T;  J .  A.N  )+P-.  J .  F  >>  r<  JN..  K  J .  F  > »  J  ■  F  )  + 

iF\  J-k  JF..  k  HHk  j..  F  ■>*  r<  J..  FF  ' .) 

RR=FeS<  R  ' 

IF(RR  ur  RES1D'>  RES1D=RR 
('<  J..  k  '=<  R-BBtiH  J-kN:'-CCHi<  JN.k  >  V  DP 
IIP  IFkFBSiVkJ.-K>>  LT  1  E-7)  V(J.k>=0 

c 

C  THE  RIGHT  BORDER  POINT 
C 

J=J.Nrt.V 

JH=JNHS.\ 

BB=BN<BkJ.K),  EEk  J.FN  V) 

CC=CNk  Dk  j  .  F  V.  FF-.  JN .  F  '  > 

PP=F(  J .  F  >+PNl  \  f F(  J..  FN  V.  FF(  J.FN'  '+PN^^- FF(  JN,.  F  >,.  £f  (  JN..  F  >  ) 

J.F  '=P 

FF(  J  .  F  .>=FN-.  N(  J  .  F  FF^  JN..  F  ' ' 

R=Oi  J..  F  ev  J..  F  Tk  j..  FN  '  +  P<  J..  F  JN..  F  .'♦£<  J..  F  Ft.  J .  F  )+N<  J..  F  >» 
&T<J..kF  ■*  ' 

RR=hlBS(R  ' 

JF  (RR.GT.RESID''  RESID=RR 
U<  J..  F  '=(  R-BBtU(  J..  F  N  .'-CE  *  'A  JN .  F  '  '  ■  DO 
120  IF<FBSl{<<J..K>>.LT  1  E-7)  (hJ..k)=0. 

C 

C  THE  CORNER  POINT  U  .kMHS) 

C 

F=FNAX 

FW=FNN.V,V 

BB=BN<.Bk  1..K)..EE'.  l.KN)) 

DD=E(  1 ..  F  .'+PNJ  (  EE(  J  •  kN)..  FF(  1 ..  KN)  ) 

EE(  1  .  F  .'=EN<  F<  ] ..  F  .' .  EE<  J  .  FN .)  > 

FF<  1  .  F  .>=P 

F=F>-;  1 ..  K)-<B(  1  ..K)*T<  1 ..  FN  >+E^  J  ..  F  .XT-.  J ..  F  .>+F(  1 ..  F  Ft  E,  F  >  ' 
RR=HBS(R) 

IF(RR.GT.RESID)  RESID=RR 
(A  1 ..  F  '>=(R-BB*U(  1 ..  FN.) .)  PP 
JF<  lA  t..K)).LT.  1  E- 7 )  (A  1  .■  K )=0 . 

C 

C  THE  RON  KNH.X..  EXCLUDING  THE  CORNER  POINT  <  JMHX..  KNH.X ) 

C 

DO  130  J=2..jnHSS 

JF=J*1 

JN=J-1 

BB =BN<  B<  J:  F .) ..  EE<  J..kN)) 

CC=CN<  D(  J:  K  )  ..  FF<  JN..  F  .'  > 

PO=E(  J..K)*DN1<EE<J..  KN):  FF<  J..  KN )  )-t-DN2<  FF(  JN..  F  .)..  EE(  JN..  F  .).) 

EE(  J..  F  )=EN<  F<  J:  K  )..  EE<  J..  FN  > ) 

FF<J..K)=0 

R=Q<  J:  F  >-(  B<  J:  F  .)«  T<  J:  KN  >+PC  J:  K )tT<  JN:  F  )+E<  J:  K  ) *  T(  J.  F  .)+F(  J:  K )t 
&T<JF:K)) 

RR=HBS<R) 

IF(RR  GT.RESID)  RESIO=RR 
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U<J..K  J,KN'>-CCii('^  JN.k  >  '  OD 

130  IF<OBSl(hJ-K>^''LT  1  E-7^  V\J..K>~0 
C 

C  THE  CORNER  POINT  jnoS..  KNHS ) 

C 

J^JNHK 

JN=jnHSX 

BB=BN<B<J-K  >.EE<.  J-kN)^ 

CC=CHk  0(  J:  K  .) .  FFi.  JN..  K  '  > 

DD=El  J:  k  >*DN1  V  EE<  J..  kN)..  FF\  J,kN  >  >*DN3k  FFk  JN .  K  EE<.  JN,  k  '  ) 
EEi  J,  k  >=0 
FF(J.k'  »=t'» 

R=Q',  J .  k  >-K  B<J-kHT<  J,  kN  '+D\  J,  k  >iT<  JN ,  k  UE<  J,  k  )t  Tk  J,  k  )  ' 
RR^HBS^R'' 

IF(RR  GT  RESID'>  RESID=RR 
V(J-k  '=<  R-BBtUi  J,  kN  >-CCiU<  JN,  k  )  '  DO 
IFk  HBS<  Uk  J,k'>'>  LT  1  E- r  )  ('•.  J,  k  )=0 
C 

C  INDEX  k  HND  J  IN  REUERSE  TO  FIND  DELTH 
C 

C  THE  CORNER  POINT  JNHX ,  kNHS  > 

C 

K^kNHX 

DEL  THk  JNHS,  k  :*=U\  JNHX,  k  > 

C  THE  ROU  kNHX 
C 

DO  140  JJ-1,JNHXS 

J=JHHXX*1~JJ 

JF=J*1 

DEL  THk  J,  k  .'=('<  J,  K  )-£■E^  J,  k  >tDEL  TO>,  JP ,  K  ' 

1 40  IF(  HBSi  DEL  TH<J,k'>)LT  1  E-lO'>  DEL  TH<  J,  k  ^=0 
C 

C  THE  RON  k,  TRENT  I NG  THE  RIGHT  BORDER  FIRST. 

C 

DO  150  kk=l.kMNXX 

k=kMRXX*l-kK 

kF=k*l 

DEL  THk  JNNX,  K  )=('-.  JNNX .  k  )-FF<  JI1NX,  K  '^tDEL  TN(  JMNX,  kP  ) 

IF<.NBS<DELTN(  jnNX,k  >  V  L  r  1  E-10>  Dt!.TN<  JNNX ,  k  ^=0 

DO  150  JJ=1.JNNXX 

J=JMNXX-H-JJ 

JP=J*1 

DEL  TNk  J,  k  '=(.'<  J .  k  >-EE<,  J .  ^  >tDEL  TN':  JF,  K  >-FF(  J,  k  TtDEL  TN<  J,  kP) 
1 50  IF(  NSS(  DEL  TN<,  J,k'>  LT  1  E-lO^  DEL  TN(  J,  k  >=0 
GO  TO  240 
C 

C  I  STONE  IS  EVEN  INDEX  k  IN  REOERSE  ORDER 
C 

C  THE  CORNER  POINT  U.-kNOX) 

C 

170  k=kNNX 
kN=kNNXX 
Dn=E<,  1,K) 

EEL  1 ,  k  '=Fc  1 ,  k  DD 
FF<l,k  >=£?(  1,K)  DD 
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R=lh  1  ■  K  Sk  l.K  '<  T'.  J  .  KN  I  ■  K  >»  T<  1 ,  K  1  -  KHU  J',.  k  )  > 

RR=^^eS^  R  ' 

RESID=RR 
V(  1  .  K  '=P  00 

IFt^BSdh  l..k  LT  1  f-T'  V'.l.k^=0 

THE  RON  KMHX 

« 

DO  ISO  J=2..JNHXS 

JP=J*1 

JN=J-1 

CC=CR\  O'.  J.k  '.FF^  JN.k  '  ' 

00=E(  J.k  ^*ORS'.  FFk  JN..  k  EEi  JN..  k  >  ' 

EE<J.k.>=F'.J..k  ''  00 

FF(  J,.  k  ''^FR'.  B<J.k'>.  FF'.  JN .  K  >  ' 

R=Q(  J  .  K  >-<  B(.  J,  K  J  .  KN  ' *0'.  J.-  k  '<  Tk  JN..  k  >+fc'(  J,.  K  X  J..  K  >+F<,  J,  F  V)t 
&  r\  JP .  F  >  ' 

RR=HBS<  R  > 

JF(PP  GT  RES  10 >  RESIO=RR 
l'(  J.  F  R-CCt'M  JN.k  '  >  00 
iSn  JF(PPS('A  J.F  'VLT  1  F-T'  (AJ.F'=t> 

rWf  CORNER  POINT  >.  JNHS .  kNHS  > 

J=Jf1HX 

JN=JNHSX 

CC=CR(  P( J.F  >.FF<  JN.F  " 

00-F<  J .  F'  xppj'i  PF(  JN .  F  ) .  FF<  JN,.  F  '  ' 
ff(  J.  F  Xtl 

FF(  J .  F  )=FP(  B'i  J.k''.  FF-:  JN  ■  F  " 

P=(?(  J.F"  Pt  J.F  .'.F  T'.  J.kN  HD<  J.  k  >*T<  JN..  k  )*E<  J.  F  VF  IX  J..  F  >  > 

RR=HBS<.  R  ' 

IF<RR  GT  RESID''  RESI0=RR 
U<  J,.  F  >=(  R-CC*IH  JN.k  ■>  '  DO 
/F<  <A  J..k>>LT  I  E-r  >  (A  J,.  F  >^D 

NFL  PDWS  EXCEPT  THE  RON  k=l 

00  COO  kk=C.kMhlXX 

k=knHXX*C-kK 

kP=k*I 

kH=k-l 

THE  LEFT  BORDER  POINT  <  1 ■ K ) 

BB=BR(H<  l..k  y.EE<  1  ■kP'') 

00=E(  l.k  ^*ORUEE>.  l..kP  >..FF<  1  .kP)^ 

EEil  .k  >=ER(  F<  1  .  F  ' .  EEC  1 ..  F  P  >  > 

FF<  1 ..  F  )=B<  1  .  F  »  DO 

P=l?(  1  .  F  .)-<  PC  1 ..  F  ).F  r<  1  .  kN>*E(  1 ..  k  X  Ti  1 ..  F  '+F\  1  ■  F  VF TC  2 .  F  >+H«.  1 ,.  F  'F 
&  rc  i  .FP  " 

RR^HBSCR.f 

IFCRRGT  RESID)  RESID-RR 
(A  1 ..  F  >=(  R-BB*U<  I  ■  kP  )  )  DO 
IFC  HBS<  (/<  1 ,.  F  .  L  r  r  f  - (A  1  ■  K  >=0 
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L'  THE  ROH  A.  ESCLUDIHG  THE  RIL.HT  BORDER  POINT 
C 

00  100  J=2-JNhKX 

JF=J*l 

JH=J-l ■ 

e8=eR<.  hk  j.a.  '‘■eek 

CC=CR<Dk  J.A.  '.FF-,  JN.K  '  > 

DD=E(  J.A.  ^^DRUEEk  J.  A.P  '.FA‘\  J.A.F  '  '>*0RS'.  FF>.  JN  ■  K  '  ■  FF^  JN,K  »  > 

FF'.  J.K  '=FF\  F^  J.A.  >.FFv  J.A,P  n 
FFi  J .  A.  '=FF-.  F(  J .  A.  > .  FF'.  JN .  A.  '  ' 

F=(?^  J.A.  >-^  P<  J.A.  'AT'.  J.  A.N  J  -  F  'A  JN.  F  >.fF'.  J.K  >tT<.J.K  '+F«.  J.  F  'A 
&T',JF.K  J.A.  '<r^  J.FFV) 

RR=0BS\ R  ' 

/F'.  FF  or  RESW)  RESID=RR 

J.  F  R-eetOK  J.KF  )-CC*0k  JN.R  '  >  00 
1 00  IF<  h>BS<  IAJ.R'>>  LT  1  E-7  >  0<  J  .  A.  '=0 

0 

0  THE  RIGHT  BORDER  POINT 
C 

J  =  JNrt.V 
jH=JNHS’S 

BB=BR<  H'.  J.A.  '.FF'.  J.  FF  " 

CC=CR',  O'.  J.A.  '.FF<  JN.F  '  > 

00=F<  J.A.  >+OFr'.  FF^  J.FF  >.  FF<  J.FF  '  '  +  OFJ'.  FF^  JN  ■  K  '■  £F^  J/V..F  '  ' 

EE<.  J.K  ''=0 

FF(  J.A.  '=FF',  O'.  J.A.  > .  FF^  JN  ■  F  " 

F=0<  J.A.  J.A.  )A  r^  J.  FN  '  +  0'.  J.  F  >A  T'.  JN.  A.  >+F^  J-  F  UTk  J-k  ^*H‘.  J..  F  'A 

&  T'.  J  kP 
RR=hBS\ R  ' 

IFiRR  or  RESIDE  RESID=RR 
0<  J.  A  >=(,  F-FFA'.''.  J.  A  P  '•-CCi'A  JN  F  "  00 
JOO  /Ft  PFS(  '.A  J.A.','  LT  J  F-."  '  (A  J  F  '=0 

0 

0  THE  CORNER  POINT  <  1 ■ 1  ^ 

C 

BB=BR(Hk  1.1  '  FF'.  i  ■  J  >  ' 

00=F';  1 ,.  1  '■'■OFF.  FF'.  1  C'>.FFU.  0  >  ' 

FF(  1  .  /  '^FFt  F'.  1  ■  n.  FF'.  i  .  F  " 

FFt  i  .  /  '=0 

F=A?'.  /  .  1  '-t  Ft  1  ■  1  HT'.  1  ■  1  '-^Ft  J  ■  i  HT<.S.  1  '-^AVt  i  .  /  'A/'.  /  .J  " 

RR=HBS  F' 

/F(FF  or  RESIDE  RESID=RR 
'A  A  .  /  '=t  F-FFAO',  A  .F  "  00 
/F<  FFSt  (A  A  .  A  "  A.  r  A  F-."  '  (A  A  .  A  '=0 
A' 

A'  THF  RON  k  =  l,  EXCLUDING  THE  RIGHT  CORNER  POINT 
C 

DO  210  J=2.JNHXX 

JF=J-^1 

JN=J-1 

BB=BR\  H-;  J,.  1  '.FF-.  J.F  " 

CC  =  CR<  D<J..  1  .'  .  FF'.  JN.  1  " 

DD=E(J.  1  >*DRUEE(J.2>.FFk  J .  2  ) '>■^DR2'.  FF<.  JN .  1  >..  FFt  JN..  1  '.' 

FFt  J .  A  '^-FF'.  F'.  J,.  A  ' .  FFt  J.F" 

FFt  J.  A  >=0 

R=P'.  J.  A  Ot  J,.  A  'A  rt  JAA.  A  '■^Ft  J.  A  'AT',  J.  A  '•^Ft  J.  A  'Art  JP.  A  WHt  J,.  A  'A 
cl  ft  J .  F  ) ' 
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IF(RR.GT.RESID)  RESID==RR 
U(J..  i  >=<R-BBt<J<J,  2>-CCW<JH>  1  >>.'DD 
21 B  IF<  BBS(  U<J»n).LT.l.E-7)  U<  J.  1  )=0 
C 

C  THE  CORNER  POINT  KJMBX.l) 

C 

J=JNf)\' 

JH=JNHXN 

BB=BR( H<  J.l>,  EE<  J..  2  )  ) 

CC=CR<D<  JA),  FF<  JN..  1  )  ) 

DD=E(J,  1  )*DRl(EE(J,2)..FFi\h2>)*DR2<FF<JN,  1  >,EE<JN>  1  >> 
EE(J..  1  >=0. 

FF(J..l>=d. 

R=Q<J..  1  1  )i:T<JN,  I  HE<J>  1  )*T<  J,  1  )*H<JA  )*T<J,2)> 

P  ) 

IF(RR.GT  RESID)  RESID=RR  ' 

U(  J:  1  >=<  R-BSnX  J.  2  )-CCHi<  JN,  1  >  >-  00 
IF<  HBS<  V(  J,  1  )).LT.  1  E-F)  >J<  J,  1  )=0 . 

C 

C  INDEX  K  FORmRD  &  J  REVERSE  TO  FIND  DELTO 
C 

C  THE  POINT  <JNHX,1  > 

C 

DEL  TfXJMHX,  1  >=U<  JNHX,  1  > 

C 

C  THE  ROH  K=1 

C 

DO  220  JJ=^1,JNHXX 

J=JHHXX-H-JJ 

JP=J+1 

DEL  TH<  J,  1  J,  1  >-EE(  J,  1  >tDEL  TH<  JP,  1  > 

220  IF(  HBSIDEL  TH<  J,  1  >  ) .  LT .  1 .  £-10  )  DEL  TP<  J,  1  >=0 . 

C 

C  RLL  REMHINING  RONS 

C 

DO  230  K=2,KNHX 
KH=K-1 
C 

C  THE  RIGHT  BORDER  POINT 

C 

DEL  TfX  JNHX,  K  )=0<  JP1HX,  X  >-FF<  JNHX,  K )*DEL  TO':'  JNOX,  KN  ) 

IF< HBS( DEL TH< JNHX, K ) > . LT . 1 . E-10 >  DEL TH< JMHX, K )=0 . 

C 

C  HLL  REMAINING  POINTS  OF  THE  ROU 

C 

DO  230  JJ=1,JNHXX 

J:^JHHXX-H-JJ 

JP=J-H 

DEL  TH(  J,  K  ,)=(/<  J,  K  )-EE<  J,  K  )*DEL  TH<  JF,  K  >-FF<  J,  K)tDEL  TA<  J,  KN> 
230  IF<  HBS<  DEL  TH<  J,K  )  )  LT .  1  E-IO  >  DEL  TP<  J,  K  >=t> . 

C 

C  CHLCULPTE  NEN  T<J,K> 

C 

240  DO  250  J=1,JNHX 
DO  250  K‘l,KmX 


^^50  r(  J .  k  .)=  T<  J,.  K  >*DEL  r^<  J..  K  ) 

RE  TURN 
C 

C  ENTRY  STONE!  SETS  UF  OLFHO  UOLUES  &  INITINLIOES  OLL  ORROYS 
C 

EN  TR  Y  S  TONE  1  (  JNOX ..  K  NOX  > 

C 

DO  320  J=2.JMNX 
00  320  K=2..KNNX 
0X=XDL T< J >-XP0S( JNNX ) 

DY^YDL  T<k)  YPOSd  > 

EE{  J..K)=2  EO.  <  1  E0  <  OXHOX  -'+l  EO  ( DYtOY  >  > 

C 

C  FIND  NU2RNGE 

C 

NLFHX=0 

DO  330  J=2'JM0X 
DO  330  2. -KNOX 

330  NL FHX=NL FHX^EEi  J ■ K > 

OL F HX=NL FHX-< JNOXtk NOX ) 

C 

C  ItlFLENENT  STONE'S  E0>.27) 

C 

DO  340  J=1..S 
NLFHY=J~1 
OLFHY=NLFHY.  S  EO 
340  £f<  J-  1  )=i4LFHXttOLFHY 
C 

C  inPLEMENT  THE  SEQUENCE  OF  IS  OLFHNS  SUGGESTED  BY  STONE 
C 

NLFHN<  1  )=EE(9..  1  ) 

>4LFHO(3)=EE<.  S.  1  > 

NLFHN<  5  >=EE<  3.  1  > 

0LFHN<7}=EE<  S.J  > 
i4LPHN<S>=EE(5..  1  > 

OLFHO(  1 1  )=EE<  2.  1  ' 

NLFHN<  13>=EEk7..  I  > 

NLPHN(15>=EE',4. 1  > 

NLFNOi  17  >=EEd  ■  1  ) 

DO  350  J=2.-1S..2 
350  NLFHNi  J  >=NLPHNk  J-1  ) 

DO  360  J=1..1S 
360  NLPHi4<J)=l  EO-NLPHN\  J) 

C 

C 

C  INITIALIZE  ALL  ARRAYS  INTERNAL  TO  STONE  TO  ZERO 
C 

DO  370  J=l..JNAX 
DO  370  K=1.-KNAX 
EE(J..K>=0. 

FF(J..K>~0 

U(J.<K>=0. 

370  DELTA(J,K>=0 
RETURN 
END 


12-) 
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SUBROUTINE  EFIELO 


C  ^ 

C  CNLCULrtTES  THE  ELECTRIC  FIELD  COMPONENTS  ESUBS  &  ESUBY 
C 
C 
C 

COMHON>  NRROYS-  FSI<  31 31  )>  EDENS<31  ^  31  )>  HDENS<  3t ..  31  >>  Bk  31 31  )  ■ 

^  &DC  31 ..  31  E<  31 ..  31  F(  31 ..  31  ),  H<  31 . 31  >.•  Q<  31 31  >,  QBREBK  31 ..  31 
&DEL  rrt(  31 31  >..  ESUBX(31 ..  31  )  •  ESUBYK  31 ..  31  ),  IDENT<31  •  31  > 

C^INON / C OEFF-  HS TH<  3 1  .>  31  > .■  HUES T< 31  >  3 1  > ..  HCN TR(  3 1.-31),  HEHS T( 31.-31  >  • 
&HNRTH(  31 .-  31  ).-  XDL  T<  33 YDL  T<  32  ).-  XFOS<  31  K-  YFOS<  31  ) 

COMMON- REHL  XUIDTH- YDEPTH, BRRIER, EGHF-  TMPTR- HCCPTR, UBL TIN, UOL T- 
■'  &  TRNSIC  -  OSS,  XO,  YO,  RHD,  XDEL  TO  -  YDEL  TH 
COMMON.  INTGR.  INHX,  JMHX,  IXUDTH,  JYDFTH 
COMMON-'  CNTRL  I TMHX,  I TRMHX,  CON'JRG  -  SIOLT 
\:.OMMON.'NRMLZE  DNSNRM,  PSINRM.,  DSTNRM,  BL  TZMN 
C 

C  ESUBX  COMPONENT 

C  'K 

IMHXX=INHX-1 
DO  140  I~2,IMHXX 
00  140  J~2,JM0X 
XN=XDL T< I  > 

IF(IDENT(I..J)  LT.O)  GO  TO  140 
IF(IOENT<  I..J).EQ.O)  GO  TO  120 
IF(J.EO.JMOX)  GO  TO  100 
YOU=<  YDL  T<  J+ 1  >+  YDL  T<  J  )  ).--2 .  EO 
GO  TO  110 
100  YOV=YDLT<J) 

110  XN=YOU  ■  HUEST(  I .-  J > 

1 20  ESUBX<  I .-  J .)=<  <  PSI<  I ,  J >-PSI<  1  +  1 .-  J )  )  -  XDL  T<  I+l  )+-: PSI<  I-1,J )-PSI<  I.-J>'> 
&-’Xl-l).2E0 
140  CONTINUE 
C 

C  ESUBY  COMPONENT 
C 

JNPXX=JM0X-1 
DO  ISO  I=1,IM0XX 
DO  ISO  J=2.-JM0XX 
YN=yDLT<J+l  ' 

IF<  IDENT<  I..J>.LT  0)  GO  TO  ISO 
IF(  IDENT<  I..J>.EO.O)  GO  TO  170 
IFd  .EQ.l)  GO  TO  150 
XHU=<  XDL  T<  I  )+XDL  T<  I  +  l)  >/2 .  EO 
^GO  TO  160 
'  150  XflU=XDLT<2) 

1 60M  YN^XOU.  HNR  TH<  I .-  J  ) 

1  70  ESUBYd.-  J)=<<PSId  -  J+1  >-PSI<  I.-  J)>  'YN+<  PSI<  I.-  J)-PSU  I,  J~1  ).>■■' 
&Y0LT<J).>.-2.E0 
ISO  CONTINUE 
C 

C  OPPLY  QUODROTIC  EXTROPOLOTION  TO  FILL  IN  ESUBX  g.  ESUBY  PT  THE 

C  EXTERNPL  POINTS  BORDERING  THE  INTERFPCE 

C 


DO  200  I  =  1..IMPX 
DO  200  J=1j-JMPX 


IF<  IDENT(  I..J).GE.0)  GO  TO  200 

IF<  I0EHT<I*1,J).LT.0>  GO  TO  200 

DENOM=XDL T< t+3 >*XOL T< 1*2 )*< XDL T< 1*3 )*SDL T< 1*2 > > 

XX=SDL T( 1*2 )*XDL T( I* I ) 

DENUH=XDL  T<  I*2)*ESUBX<  1*3.-  J>*XDL  T(  I*3)*ESUBX<  1*1 ..  J)- 
&(XOL T< I*2)*XDL T< I*3>)*ESUBX( 1*2, J) 

BB^OENUn^'OENOM 

DENUM=XDL T< I *2 >*XDL T< I *2 >*ESUBX< 1*3, J >~XDL T< I*3)tXDL T(I*3 )* 
S.ESUBX(I*1  ,J>-<XDL  T(  1*2  >*XDL  T<  1*2  >-XDL  T<  I*3  )*XDL  T<  1*3  >  )* 
&ESUBX( 1*2, J) 

BB^DENUH'DENON 

ESUBX< I, J>=ESUBX< 1*2, J >*BBtXX*XX-BBtXX 
DENOM=  YDL  T<  J-2  >*  YOL  T<  J-1  )*<  YDL  T<  J-2 .) *  YDL  T(  J- 1  >  > 

XX=YDL  T<J~1  )*YDL  T<J> 

OENUN=YDL T<J-1 )*ESUBY< I, J-3>*YDL T< J-2 )*ESUBY< I , J-1 )- 
A (  VOL  T<  J- 1  >* YDL  T<  J-2  )  )*ESUB Y<  I,  J-2  ) 

BB=DENUM/OENOH 

DENUN=YOL  T<J-1  )tYDL  T<J-1  )*ESUBY<  I,  J-3>-YDL  T(J-2>*YDL  T<J-2>$ 
&ESUBY(I,J-t  )-(YDLT<J-l  .m'DLT<J-l  >-YDLT(  J-2 )*YDLT<  J-2 ) )t 
&ESUBY<  I,  J-2) 

BB^DENUMyOENOM 

ESUBY( I, J )=ESUBY( I , J-2 )*BB*XXtXX-BBtXX 
200  CONTINUE 
RETURN 
END 
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SUBROUTINE  miLHCH<  UL  TDL  T..  f^UDL  T ..  XPt^TH..  YPNTH>  ET..  KNTNPX) 

C 

C 

C  EUPLUPTES  THE  BREPKDOHN  VOLTPGE  PFTER  LOCPTING  THE  TRPJECTORY 
C  PLONG  NHICH  THE  lONIZPTION  INTEGRPL  IS  P  MPKINUN 
C 
C 
C 

COHNOH.  PRRPYS/PSK  31 ..  31  EDENS<  31  .■  31  .).■  HDENS(  31 ..  31  >.•  B<  31 ..  31  ).■ 

&D(  31 ..  31 E<  31 ..  31 F<  31 31  H<  31  .■  31  >..  Q<  31 ..  31  QPREP<  31 31 
&DEL  TP<  31 31 ESUBX<  31 ..  31  ).•  ESUBY(  31 31  IDENT<  31 ..  31  ) 

COMNON.  COEFF-'HSTH<  31 ..  31  >  ■  HNEST<  31 ..  31  >..  HCNTR< 31 31  HEPST< 31 . 31 
&HHR  rH<  31 ..  31  XDL  T<  32  YDL  T<  32  >,  XPOS<  31  .).  YPOS<  31  > 
COMHON/REPL/XHIDTH..  YDEPTH..  BRRIER..  EGPP.  TNPTR..  PCCPTR,  UBL  TIN..  UOL  T> 
fi  TRHSIC..  OSS:  XO:  YO:  RPD:  XDEL  TP..  YDEL  TP 
CONNON.-  INTGR-  INPX..  JNPX..  IXUDTH..  JYDPTH 
COMMON.  CNTRL  ' I TMPX..  I TRMPX..  CONURG..  SIDL  T 
COMMON.-  NRMLZE.  DNSNRM..  PSINRM,  DSTNRNj.  BL  TZMN 
COMMON.  RSCPL  E--  RSFC  TR 
C 

DIMENSION  XSTPRT<3.>..  YSTPRT(3.)..  FI<3.>,  KNTMX<3.>..  ISTPRT(3.>..  JSTPRKZ.) 
DIMENSION  XPPTH<KNTNPX..  3>..  YPPTH< KNTMPX..  3>..  EKKNTMPX,  3) 

C 

C  CPLCULPTE  EQUILIBRIUM  FPRPMETERS.  ESTIMPTE  THE  BREPKDOUN  UOLTPGE.. 

C  PND  CPLCULPTE  INITIPL  NORMPLIZPTIONS . 

C 

CPLL  EQULIB 
CPLL  UGUESS(UOLT) 

NRITE(6..9O0)  UOLT 

200  FORMP  T(  2X..  ■■■■■■■'..  2X..  '  THE  INI  TIPL  UOL  TPGE  ESTIMP  TE  IS' ..  IPE 10 . 2.. 

&1X..  '  UOL  TS' ..■■■■■■■■■■) 

RSFCTR=1 . 0 

ROSPUE=RPD 

.WSPUE=XNIDTH 

YDSPUE=YDEFTH 

QSSPUE=QSS 

PSINRM=UBL TIN+UOL T 

DSTNRM~SQRT(2.*11 . 7:tiS.  S54E-14tPSINRM--<  1  .  €02E-19*DNSNRM.K> 

KSNCH=0 

K=1 

ISTPRT<2>==IXHDTH 
JSTPRT<  2)=:  JYDPTH 
C 

C  PROUIDE  CURRENT  NORMPLIZPTIONS  OF  RPD..  XNIDTH,  YDEPTH..  &  (.?SS 
C 

1 00  RPD=RDSPUE-( DS TNRMt 1 . E4 ) 

.XNIDTH=.WSPUE.  <DSTNRM*1 .  E4  > 

YDEPTH=YDSPUE.X  DSTNRMtl . E4 > 

QSS=QSSPUE*DSTNRM.-a  1 .  F*S.  S54E-14tPSINRM.> 

SINRM0=PSINRM 
r 

USING  PRESENT  NORMPLIZPTIONS,  SOLUE  POISSON'S  EQ.  &  OBTPIN  THE 
ELECTRIC  FIELD  LPTTICES.  IF  KSHCH.EQ.O,  LOCPTE  POSITION  OF  MPX 
E-FIELD  PND  ESTPBLISH  THREE  STPRTING  LOCPTIONS  CENTERED  PBOUT  THPT 
POSITION.  IF  KSUCH.GT.0,  ESTPBLISH  ONLY  THE  CENTRPL  STPRTING 
LOCPTION. 
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CrtLL  G#?I£» 

Cf^L  L  S  TONEl  <  INfiS.  JMUX  ) 

C()LL  BORDER 
CBLL  NITIBL 
CBLL  GRELBX 
CBLL  EFIELD 
I=ISTBRT<2>-1 
J=JSTART<2>-1 

IF(  RBD .  NE .  XU  ID  TH .  OR .  RBD  HE .  YDEF  TH .  OR .  QSS  HE.  0.  )  GO  TO  1 05 
K=2 

KSUCH=1 
GO  TO  120 

105  IF(KSUCH.GT  0)  GO  TO  120 
ETST=2. E5*DSTNRN  PSINRM 
Et1UX=0. 

DO  110  11=1..  IN0X 
DO  110  JJ=1..JM0X 

ETT=SQR  T<  ESUBX<  1 1 ..  JJ  .>*ESUBX<  1 1 JJ  )-t-ESUBY<  1 1  ■  JJ  .'>tESUBY<  II  ..  JJ .)  > 

IF(ETT  LE. EM0X)  GO  TO  110 

EnRX=ETT 

I=II 

J=JJ 

110  CONTINUE 

IFCENNX.GE  ETST.)  GO  TO  115 
PSINRN=FSINRM*1 . 05*<ETS T  -ENBX .)t(ETS T  ENPX ) 

DSTNRM=SQRT(2.*1 1 . 7tS .  S54E-14*PSJNRn.  (  1  B02E-1  StDNSNRN  .>  .> 

115  1=1-2 
J=J-2 
C 

C  ESTABLISH  STARTING  COORDINATES  FOR  TRAJECTORY  K. 

C 

120  1=1*1 
J=J*1 
X=XPOS<  I .) 

Y=YFOS'.  J.> 

IF(X.GT.X0)  GO  TO  125 

XSTART<K)=X 

YS  TAR  T<  K  > = YFOS(  J  YDP  TH ,) 

GO  TO  150 

125  IF(Y.GT.Y0>  GO  TO  ISO 
XS TAR T< K >=XPOS< IXUD TH > 

YSTART<K)=Y 
GO  TO  150 
130  X=X-X0 
Y=Y-Y0 

IF<X  LT.Y.)  GO  TO  140 
Y=Y-X 

XSTART< f<>=X0*RAD.'SQRT<  1 .  E0*Yt:Y.) 

YS  TAR  T(  K  .>= Y0*<  XS  TAR  T<  K  )-X0  )  *  Y 
GO  TO  150 
140  X=X'Y 

YSTART< K >=Y0*RAD.  SQRT<  1 .  E0*.X*X.> 

XS  TAR  T(  K  .>=X0 + <  V'5  TAR  Ti  K .)  -  Y0  ).tX 
150  IF<KSUCH.GT.0)  GO  TO  ISO 
K=K*1 
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1F<K  GT  J)  GO  TO  170 
GO  TO  120 


C 

C  TROCE  OUT  THE  TRHJECTORY  FOR  STORTING  POSITION  K 
C 

170  K=1 
ISO  KNr=l 
KE}<IT=0 
S=XSTORT<K.> 

Y=YSTORT<K'> 

I=IXtJDTH 

J=JYOFTH 

OL TS=X-XFOS< IXUDTH^ 

DLTY=Y-YFOS(JYDFTH > 

COL  L  INDEX(  I ..  J,  DL  TX..  OL  TY..  KEXI T  > 

ISTORT<K)=I 

JSTORT<Ky=J 

IF(OL TX.LT.XDL T<I*1  >  i  E3)  OL TX=XOL T( J+]  >  J  E3 
IFi  OL  TY.  LT  YOL  T<J).'l  E3.>  OL  TY=YOL  T<  J )■  1 .  E3 
X=XPOS< I >*0L TX 
Y=YPOS<jy*OLTY 

COL L  EFORCEY  I .■  J..  X.,  Y..  DL  TX..  DL  TY..  EX..  EY.ETkI  .  F  >  > 

XFOTHk  1  ..K>=X 
YFOTH<  l..K)=Y 
ETT=ET\  l  .K) 

190  COLL  TROJECLFNT.  I.J.X.  Y ..  OLTX..  DLTY .  ETT ..  KEXI  T  > 

IFiKEXIT  GT.O)  GO  TO  200 
kNT=LNT^-l 

IFLKNT.GT  KNTNOX)  GO  TO  195 
XFOTHkKNT.K  )=X 
YPOTHk  KNT.K  >=V 
ET<kNT..K)=ETT 
GO  TO  190 

195  NRITE(6. 1000>  KNTNOX 

1000  FORHOT<  1  HI..  30X. .■■■■■,  5X..  ‘EXCEEDED  STOROGE  OLLOTTED  FOR  TROJECTORIES 
&‘(kNTNOX=' ..  13..  ■  >  ..5X..  ‘INCREOSE  THE  UOLUE  OF  THOT  FORONETER  ‘ 

&'IN  NONELIST  CONTRL  .  '  •  •  5X,.  ‘INCREOSE  DIMENSIONS  '• 

&'OLLOTED  TO  XFOTH. YPOTH, &  ET  IN  MOIN.IF  NECESSORY .  ‘) 

STOP 

200  KNTMXiK )=KNT 
kNT=l 
FKk  >=t>. 

XST=XST0RT(K)*DSTNRM*1  .  E4 
YS  T=  YS  TOR  T<  K  .>.*DS  TNRMF 1  E4 
XPT=XFOTH<  1 , K)*DSTNRMtl  E4 
YPT=YP0TH<  1  .  K)*DSTNRMtl  .  E4 
EPT=ET<  1  ,K.)*FSINRM  DSTNRN 

URITELE..  lOlO.'^K.,  ISTORTLK).  JSTORTY  k  .Y.  XST..  YST..XPr.  YPT..  EFT.  PH  K  > 


1010  F0RM0T<2X...-'. 
&‘YSTORT‘  ..4X 


2X ..  ‘K‘  ..3X..  ‘  ISTORT‘  .  IX..  ‘  JS  TORT  ‘ ..  3X ..  ‘XSTORT‘  .4  X .. 
XFO  TH  ‘ ..  5.V,  '  YFO  TH ' ..  6X..  ‘ET‘..  7X..  ‘  OLFHO  ‘ ..  5X,  ‘FI ‘.. 


&  1 X,  12..  5X..  12..  5X..  12..  3X..  1 P5E1 0  2..  1  OX..  1  PEI  0  2  > 


C 

C  EUOLUOTE  THE  lONIZOTION  INTQ<ZPF  OLONG  TROJECTORY  K. 


C 

210  kNT=kNT+l 

IF<kNT  GT  KNTnX<K)>  GO  TO  220 
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O.V=XPrt  TH<  KN T..  K TH<  KN T- 1 ..  K  > 

DY=YPFTH(KNT..  K )-YPFTH< KNT-1 ..  K) 

ET2=ET(KNT..K.i~ 

ET1=ET<KNT-1.K) 

PId=PI<K> 

CrtL L  IHTGRL<DX.DY..ET1..ET2jPI<K>,  i^L PHi^  > 

XP  T=SPP  THC  KN  T ,  K  )  WS  TNRNt  1  .  E4 
YPT=YPPTH<KNT..K)tDSTNRn*l  .  E4 
EP T=E T<  KNT,  K .)*PSINRM.-  DS TNRN 
NRITE(6..  1020 )XPT..  YPT.EPT.OLPHO.PKK) 

1 020  PORNO  T(  40X..  1 P5E1 0.2> 

TST=<  PI<  K  )-PIO  >yPI(  K  > 

IF(TST.GT  1  .E-4)  GO  TO  210 
220  IF(KSUCH.GT.0)  GO  TO  230 
K=K^■1 

IF<K.LT.4)  GO  TO  ISO 
KSUCH=1 

230  IF(K.EQ.2>  GO  TO  290 
C 

C  ODJUST  STORTING  POSITIONS  UNTIL  THE  TROJECTORY  K=:2  PRODUCES  THE 
C  MOXINUN  lONIZOTION  INTEGROL. 

C 

IF<PI(  1  ).GT.PI<2>.>  GO  TO  250 
IF(K  EQ. 1 >  GO  TO  240 
IF(PI<3).GT.PI(2))  GO  TO  270 
240  K=2 

GO  TO  290 
C 

C  MOXINUN  IS  TO  LEFT  OF  K=2.  SHIFT  LEFT  OCCORDINGLY. 

C 

250  K=1 

IST0RT<2>=IST0RT(  1  > 

JST0RT<2)=JST0RT<  n 
XS  TOR  T(  2  >=XS  TOR  T<  1  > 

YST0RT<2)=YST0RT<  1  ) 

FI<2)=PI<1> 

KNTNX<2)=KNTNX<  1  > 

KMX=KNTNX( 1 ) 

DO  260  KNT=1..KNX 
XP0TH(KNT.2>=XP0TH<KNT..  1  > 

YF0TH(KNT..2)=YP0TH(KNT..  1  > 

260  E T<  KNT:  2  )=E T<  KNT..  1  ) 

I=ISTORT<  l  )-2 
J=JSTORT<  1  )-2 
IFd.LT  0)  GO  TO  240 
GO  TO  120 
C 

C  MOXINUN  IS  TO  RIGHT  OF  K=2.  SHIFT  RIGHT  OCCORDINGLY. 

C 

270  K=3 

IST0RT<2)=IST0RT<3> 

JS TOR T< 2 )=JS TOR T< 3 > 

XS  TOR  T<  2  )=XS  TOR  T<  3  ) 

YST0RT<2>=YST0RT(3> 

PI<2.>=PI<3) 

KNTNX(2>=KNTNX':3> 
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KI1S=kNTMS(  3  ) 

00  300  KNT=l..knS 

SPfi  TH(  KN  T ..  3  >=SPA  TH<KNT‘3> 

yPPTH<  KNT..2  >=YPPTH(KNT,  3) 

300  E T(  KNT.  3  )=f  T<  KN  T  ■  3  > 

I~ISTNRT(3'> 

J=JSTPRT<3) 

IF(J  EQ  JNPK>  GO  TO  340 
GO  TO  120 
C 

C  POJUST  PSINRN  UNTIL  ONE  MINUS  FI  CHANGES  SIGN  THEN  USE  THE 

C  METHOD  OF  SECHNTS  TO  FIND  THE  UHLUE  OF  PSINRM  LEHDING  TO 

C  BREHKDONN. 

C 

290  Yl=l  0-FI<2> 

S1=PSINRN 

KEY^l 

IF< Y1  GT  0.  )  GO  TO  300 
FCTR=0.9E0 
GO  TO  310 
300  FCTR=l  lEO 
310  K2=S1*FCTR 
GO  ro  360 
320  Y2=l.0-FF1 
TST=YltY2 

IF(TST  LT.O  GO  TO  330 
Y1=Y2 
S1=X2 
GO  TO  310 
C 

C  METHOD  OF  SECHNTS 
C 

330  KEY=2 
kSEC=0 

340  DEN=Y2-Y1 

IF<oeS<Y2)  LT  OUDLT)  GO  TO  3S0 
KSEC=KSEC*1 
X.V=(  XI  tY2-X2*Yl  >■  DEN 
X1=X2 
Y1=Y2 
X2=XX 
GO  TO  360 
350  Y2=‘l  0-FFI 
GO  TO  340 
C 

C  SUBPROGRON  FOR  THE  lONIZOTION  INTEGRHL 
C 

360  KNT=1 
ppr*o 
FSINRN^X2 

DS  TNRM=DS TNRI1*$QR  T< X3.  X]  > 

NRITE(6, 1030)  KEY..  PSINRM..  DSTNRM 

1030  FORMOn  1H0..2X,  'KEY^' ..  I2..6X,  •PSINRM- '..  IPEl  1 . 3>  3X..  'DSTNRM*'.. 
i.lPEll.3...  ) 

NRirE<6..  1040) 

1040  FORMRK  1H0..2X.,  •KNT',4X..  'DX'..SX,  •DY'..SX,  'ETl  ',7X>  'ETZ', 

&  PX,  •  OLPHO  ',5X>'PI' .  -'■/ .) 
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37d  KNT=KNT-H 
FFie=FPI 

IFiKNT.GT.KNTNX':^))  GO  TO  <  320..  350  >,  KEY 
DX=XFO  TH-:  KNT,  2  )-XFh TH<  KHT-  1 ..  2  > 

D V=  VPrt  TH< KNT. 2 >-YFO TH< KN T-1,2 ) 

ET2=ET(KNT..2> 

ETl=ET<KNT-1..2) 

COL  L  IN TGRL <  DX,  DY ..  ET 1 ..  ET2>  FFI ,  NL FHN .) 

DXX=DX*DSTNRN 
DYY=DY*DSTNRn 
ETTl==ETltFSI  NRN- OS  TNRN 
E  T  T2=ET2.tPSINRI1  DS  TNRM 

NR  I  TE(  €..  1 050  >  KNT..  DXX..  DYY^ETTl  .ETT2..  NLFHO..  FPI 
1 050  FORtlF T(  2X.  13..  1 X..  1 F6E1 0 .2) 

TST=(  FPI-PPIO>.  FFI 
IF(  TST.LT.  1  .  E-4>  GO  T0<320..  350>..KEY 
GO  TO  370 
C 

C  TEST  FOR  CONVERGENCE  OF  FSINRM.  IF  NOT..  FIND  NEN  SOLUTION  OF 
C  POISSON'S  EQ  &  REEVOLUNTE  THE  VHLUE  OF  PS  I NRN  REQUIRED  FOR  BREHK- 

C  DONN.  IF  SO..  RENORNHLIZE  ROD..  XNIDTH..  YOEFTH..  QSS  FOR  THE 

C  PURPOSE  OF  PROVIDING  CORRECT  OUTPUT  DOTH  ON  DIMENSIONS. 

C 

380  TST=HBS<  (  FSINRM-SINRNO  >.'SINRNO  ) 

NRITE(6..  1060)  KSEC 

1060  F0RH^^T<2X..^^y  ^2X.  13..  IX.  'ITERHTIONS  HERE  REQUIRED  NITH  THE  METHOD'. 
&1X..  'OF  SECHNTS  IN  HVLNCH '..  ■■  ■■  ) 

IF<TST.LE  VLTDLT)  GO  TO  390 
GO  TO  100 

390  RHD=RDSHVE.-  ':  DSTNRM*  1  .  E4  ) 

XNIDTH=XNSHVE.  (DSTNRNtl . E4 ) 

YDEFTH=YDSHVE.-<DSTNRN:U  .  E4  > 

QSS=QSShlVE.tDSTNRM.-  ( 1 1 . 7*S.S54E-14*FSINRM) 

CHLL  GRID 

CHLL  STONE 1< I MHX . JMhX > 

CHLL  BORDER 
CHLL  NITIHL 
CHLL  GRELHX 
CHLL  EFIELD 
RETURN 
END 
C 
C 
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SUBROUTINE  UGUESSk UNI T ) 

C 

C  SUPPLIES  INITIAL  ESTIMATE  OF  THE  BREPKDOUN  UOLTNGE  USING  PN 
C  EHPIRICPL  FIT  TO  THE  KENNEDY-0 ' BRIEN  CURUES 
C 
C 

CONMON''PRRPYSy'PSI(  31 ..  31  EDENS(  31 ..  31  )  .  HDENS{  31  •  31  >.  B\  31  -31  ). 
&D( 31 , 31  >.  E<  31 , 31 F(  31  .■  31  ),  H<  31 31 Q<  31 . 31  QPREP<  31 . 31 
&DEL  TP< 31 ..  31 ESUB>«  31 31  ),ESUBY<  31 , 31  )  •  IOENTk  31.-3n 
COMMON.  COEFFHSTHi  31..31  >■  HNEST<  31 ..  31  ).  HCNTR<  31 ..  31  HEPST(  31 ..  31 
&HNRTH(  31 ..  31  )..  XDL  T(  32  YDL  T<  32  )..  .YFOS<  31  >.■  YFOS<  31  > 

COMMON.  REPL  -XUIDTH..  YDEPTH..  BRRIER,  EGPP.  TMPTR.  PCCPTR,  UBL  TIN,  UOL  T 
& TRNSIC,  QSS: XO: YO, RPO, XDEL TP, YDEL TP 
COMMON.' INTGR-  IMPX,  JMPX,  IXUDTH,  JYDFTH 
COMMON.- CNTRL  I TMPX,  I TRMPX,  CONURG,  SIDL  T 
COMHON.'NRNLZE.'DNSNRN,  PSINRM,  DSTNRM,  BL  TZMN 
C 

RR^RPD 

IF(RR.EQ.e)  RR=0.1 
PP‘l  ■-  <  IS.  *150  *RR.> 

UNIT=1  .  -'(PP^Z.  25E-12*DNSNRMK*0.6> 

PP=2.  303E4.  ■<  DNSNRMtt .  3B95  ) 

BB-7.  891E3  < DNSNRMt-t .  296$ .> 

TT^TMPTR.  300 .  -1  . 

UNIT=:UNIT$<PPtTT*TT*BBtTT*l .  > 

RETURN 

END 

C 

c 
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C  USING  UNNORnt^LIZED  Ut^RI^BLES..  CBLCUL^TES  THE  TENFERHTURE- 
C  DEFENOENT  BHND  GHF..  THE  IONIZED  HCCEFTOR  DENSITY.  HNO  THE  BUILT-IN 

C  FOTENTIHL  BHRRIER-  HCCOUNTING  FOR  THE  TENFERHTURE  DEFENDENCE  OF 

C  THE  INTRINSIC  DENSITY  HND  OF  THE  FERtll  LEUEL 
C 
C 

•  C 

CONtWN  HRRHYS  FSKJl 31  Y.  EDENS<  31  •  Ji  HDENS<31 31  B<31 ..  31  ), 

&D(  31 . 31  >.-  E<  31 . 31  F\  31  .■  31  H<  31 31  >,  Qk  31  .-31  >  ■  QHREH<  31  .■  31  >. 

&DEL  TH(  31 , 31  ESUBXk  31 ..  31  ).■  ESUBY<  31  .■  31  ).■  IDENT<  31  .■  31  > 
C0MH0N/C0EFF.'HSTH<  31 ..  31'>.  HNESTi  31  •  31  HCNTR':  31 . 31  ).  HEHST<  31 31 
&HNRTH(  31 31  )  .  XDL  T<  32  >  ■  VOL  T<  32  XFOS<  31  YFOS<  31  ) 

CONNONy  REHL  -'XHIDTH.  YDEFTH.  BRRIER.  EGHF.  THFTR.,  HCCFTR.  UBL  TIN.  UOL  T. 

&  TRNSIC.  OSS  .  XO..  YO,  RHD .  XDEL  TH .  YDEL  TH 
COHNON.-INTGR--INHX.  JHHX.  IXUDTH.  JYDFTH 
CONNON.'CNTRL  ITNHX.-  ITRHhiX..  CONURG-SIDL  T 
COMNONy  HRHLZE  DNSNRH..  FSINRH,  DSTNRN..  6L  TZMN 
CONHON  •  SW  TCH-'  NDOFE 
C 

T=THFTR  ■■3.E2 
BL TZMN=0. 025S5tT 

EGHF=1  165-7. 242E-3tT-3. 664E-2* TFT 
EI0=EGHFy2.E0-l . 306E-2* T 
X=EIU 
KEY=1 
GO  TO  170 
C 

C  HOJUST  X1&X2  UNTIL  Y1&Y2  HHUE  OFFOSITE  SIGN 
C 

100  X1=X 
Y1=Y 

DX=-EIU-2  El 
IF(Y  LT.O  >  DX=-DX 
X=X1 +OX 
KEY=2 
GO  TO  170 
110  X2=X 
)2=Y 

IF<Y1FY2.LE.0.  )  GO  TO  140 
130  X1=X2 
Y1  =  Y2 
X=X2*DX 
CO  TO  170 
140  KEY=3 
C 

C  METHOD  OF  SECHNTS 
C 

1 50  I Fi  HBS<  Y).LT.  l  .E-3 )  GO  TO  1  SO 
DEN=Y2-Y1 

X=  (  XI  .t  Y2-X2*  Y1  .y- DEN 
GO  TO  170 
160  X1=X2 
Y1-Y2 
X2=X 
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V2=V 

GO  TO  150 
C 

C  SUBROUTINE  FOR  EUNLUNTING  Y 
C 

170  EIF=S 

EFU=EIU-EIF 

E^F=4  3SE-S-3  037E-StNCCFTRtt<  1  t).  J  0  >-EFU 

BKGRND=OCCPTR.  <  1 . 0^<  4  0*2 .  0-  EXF'.  4  4E-2-  eL  TZNN  >  )*EXP<  EOF  'BL  TZNN  >  ) 
IFi.  NDOPE.  GT  0)  BKGRND=OCCPTR.'<  1  *2.  i:EXP(ENF  BLTZNN)) 

TRNS I C=3 .  925ElSt  TtSQR  T(  T  >tEXP<  -EGOP.  <  2 .  tBL  TZT1N .)  > 

BULKP=TRNSIC  tEXP(  EIF-  BL  TZNN) 

V=<  BULKP-BKGRNO >  ACCPTR 
GO  70(  1 00 .110,1 60  > .  KE  Y 
C 

C  CBLCULBTE  THE  BUILTIN  POTENTIAL,  THE  ELECTRON  DENSITY  NT  THE 
C  NETHL-SILICON  INTERFACE,  HND  THE 'BULK  HOLE  DENSITY 
C 

ISO  UBLTIN=BRRIER-EFU 
DNSNRN=BKGRND 

NR  I TEk 6, 1000 )TNPTR, EGHP, EIU, EIF, EFV.  TRNSIC, BKGRND ■ UBL TIN 
1000  FORMHTLZX,  ■■■■■■',  3X,  'TNFTR‘,5X,  'EGHF',7X,  'EIU'.ZX,  •EIF',7X,  'EFW, 
&6X,  '  TRNS  I  C',4X,  '  BKGRND  ' ,  4X,  '  UBL  TIN',  IX,  1  FSEl  0 . 2,  > 

RETURN 

END 

C 

C 
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c 

c 

c 

c 

c 

c 

c 

c 


c 


c 

c 


SUBROUTINE  INDEX< I,J>DL TX> DL TY> KEXI T ) 

TRRCKS  NHICH  'BOX'  OF  THE  LATTICE  IS  OCCUFIED  BY  THE  MOOING 
CHHRGE  &  SUPPLIES  ITS  INDICES  <I..J>  HNO  CORRECT  UHLUES  FOR 
DLTX  &  DLTY  NITH  RESPECT  TO  THRT  POINT.  HLSO  FLHGS  HN  EXIT  OF 
THE  CHHRGE  FROM  THE  REGION 


COMMON -HRRHYS  -  PSK  31 . 31  )..  EDENS<  31 ..  31  ),  HDENS<  31 31  >.■  B<  31 ..  31 
&D<31..31  >.E(31,31  ),F<31..31  ).H>:31,31  >,Q(31..31  )..  QHREH<  31 ..  31  >, 

S<DEL  TH(  31 ..  31  ).-  ESUBX<  31 , 31 .).  ESUBYk  31 31  >..  IDENK  31 31  ,> 

COMMONy  COEFF-^HSTH<  31  .■  31  )..HNEST< 31 ..  31  ),  HCNTR<  31  .■  31  >,  HEHSK 31 ..  31  > 
&HNRTH(31  >  31  X-XOLR  J2,)..  YDL  T<  32  ).'XPOS<  31  YF0S<31  > 

COMMONyREHL-XHIDTH: YDEFTH, BRRIER. EGHF,  TMPTR, HCCFTR, UBL TIN, UOL T, 
&  TRNSIC,  QSS,  XO..  YO,  RHD,  XDEL  TH,  YDEL  TH 
COMMON/ INTGRIMHX, JMHX, IXUDTH, JYDPTH 
COMMOH/CNTRL/ITMPX, ITRMHX, CONORG,  SIDL T 
COMMON/NRMLZE-DNSNRM, PSINRM, DSTNRM, BL TZMN 


IF(DLTX.LT.O.  .)  GO  TO  100 

IF( DL  TX .GT  .XDLT<  I -tl  .)  .>  GO  TO  1 1 0 

GO  TO  120 

100  IFd.EQ.l)  GO  TO  150 
DL  TX=XDL  T(  I  .^li-DL  TX 
1=1-1 

IFiDLTX.LT.O.  .>  GO  TO  100 
GO  TO  120 

110  IF(I  .El1.<  IMHX-1  .>>  GO  TO  150 
DLTX=DLTX-XDL  T<  1  +  1  > 

1=1  +  1 

IF(DLTX.GT.XDLT<  I  +  l  )>  GO  TO  110 
120  IFLDLTY.LT.O.  )  GO  TO  130 

IF(  DLTY.  GT.  YDL  T<  J ,) .)  GO  TO  1 4  0 
RETURN 

130  IF(J.EO.JNHX)  GO  TO  150 
DL  TY=YOL  T<J+1  )+DLTY 
J=J+1 

IFkDLTY.LT.O.  .)  GO  TO  130 
RETURN 

140  IF<J.EQ.2)  GO  TO  150 
DLTY=DLTY-YDL  T<J) 

J=J-1 

IFkDLTY.GT.YOLTkJ.))  go  to  140 
RETURN 
150  KEXIT=1 
RETURN 
END 
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SUBROUTINE  EFORCE<  I  •  J.-  X..  V..  DL  TX.  DL  TY,  EX..  EY,Er) 

NPFLIES  INTERFOLNTION  FOR  THE  X  &  Y  COMFONENTS  OF  THE  ELECTRIC 
FIELD  FT  LOCATION  <X^Y>. 


COMMON  ■  BRRNYS.  'FS I <  31 ..  31  > .  EDENS<  31 ..  31  >  ■  HDENSk  31  .•  31  B<  31 , 31  ), 
iD<  31 31  E'i  31 ..  31  )..  F<  31  .■  31  H<  31  .■  31  0(31  .■  31  ).■  QNREO<  31 31  >.■ 

&DEL  TF<  31 ..  31 ESUBX(  31 ..  31  >.•  ESUBY<  31 ..  31  IDENT<  31 , 31  ) 

COMMONy  COEFF.  HSTH(  31 31  .>.■  HNEST(  31 ..  31  .>.<  HCNTR<  31 ..  31  HEBST(  31 ..  31  >. 
&HNRTH(31..31  >,.  XOL  T-;  Ji* YDL  T< 32 ),  XPOS<  31  YP0S(31  > 

COMMON  REOL  -  XUIDTH..  YDEPTH..  BRRIER..  EGrP..  TMPTR,  RCCPTR,  UBL  TIN,  VOL  T, 

&  TRNSIC,  OSS,  XO,  YO..  ROD,  XDEL  TN,  YDEL  TR 
COMMON' INTGR-IMRX, JMBX, IXNDTH, JYDPTH 
COMMON.'CNTRL  ITMRX,  I TRMBX,  CONURG,  SIDL  T 
COMMONy  NRMLZE-  DNSNRM, PSINRM, DSTNRM, BL TZMN 


1 00  EN=ESUBX(  I ,  J .) +DL  TXi:<  ESUBX(  I  +  1,J  >-ESUBX(  I ,  J  >  >y  XDL  Td  +  l  > 

ES=ESUBX(I,J-1  >i-DLTX*<ESUBX<  I  +  1,J-1  >-ESUBX(  I ,  J-1  .>.>.-.XDL  T<  1+1  > 
EX=EN+DL  TY*<  ES-EN  )■  YDL  T(  J  ) 

EN=ESUBY<  I ,  J  >+DL  TXt<  ESUBY<  I  +  1,J  .>-ESUBY<  I ,  J  >  >.-  XDL  T(I  +  1  > 
ES=ESUBY(I,  J-1  )+DL  TXt(ESUBY(  I  +  l,  J-1  .)-ESUBY<  I ,  J-1  ).h-XDL  T<  I  +  l  > 
EY=EN+DL  TY*(  ES-EN .^.  'YDL  T(  J  > 

E T=SOR T< EXtEX+EYtEY ) 

RETURN 

END 
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SUBROUTINE  TRBJECi  KN T..  I,  J,  K>  Y..  DL  TV..  OL  TY,  E r,.  KEXI T ) 


USES  RDNMS-BRSHFORTH-NOULTON  PREDICTOR-CORRECTOR  EQ'S  TO  TROCE 
HOLE  TRAJECTORIES,  FOLLOUING  A  FOURTH-ORDER  RUNGE-KUTTA  STARTING 
PROCEDURE. 


COHMON,'ARRAYS-'PSI<  31 31  >,  EDENS<  31  .■  31  ),  HDENS<  31 , 31  >,  B<  31 , 31 
&D(  31  .•  31  >,  E(  31 31  >..  F<  31 31  ),  H<  31 , 31  >.>  Q<  31  .■  31  >,  QAREA<  31 , 31  ), 

&DEL  TA<  31 ..  31  .>.■  ESUBX(  31 ..  31  ESUBY<  31 , 31  ),  IDENT(  31 , 31  ) 

COMMON-  COEFF/HSTH<  3 1.-3 1.),  HHESK  31,31),  HCNTR<  31,31),  HE  ASK  31,31), 
&HHRTH(31,31  ),XDL  T<32),  YDL  T<  32  ),  XPOS(  31  ),  YP0S<31  ) 

COMMON-  REAL,'XNIDTH,  YDEPTH,  BRRIER,  EGAP,  TMPTR,  ACCPTR,  UBL  TIN,  UOL  T, 

& TRNSIC, QSS, XO, YO, RAD, XDEL TA, YDEL TA 
COMMON-'  INTGR-^INAX,  JMAX,  IXUDTH,  JYDPTH 
COMMON/CNTRL-  'I  TMAX,  I TRMAX,  CONURG,  SIDL  T 
COMMON-  NRNLZE.'DNSNRn,  PSINRM,  DSTNRM,  BL  TZMN 

01  MENS  I  ON  0X<  7  ),D  7  ) 

IF(KNT.GT.4)  GO  TO  100 
IF(KNT.GT.  1)  GO  TO  90 
DL T A =0.005 
TOEL  T=DLTA-'ET 
DO  BO  K=l,7 
DX(K)=0. 

SO  DY(K)=0. 

RUNGE-KUTTA  PROCEDURE 

90  CALL  INDEX< I , J, DL TX, DL TY, KEXI T ) 

CALL  EFORCE<  I,J,X,  Y,  DLTX,  DLTY,  EX,  EY,  ET  ) 

DXl=EXtTDELT 
DYl  =EY.tTDELT 
XX=X+DXU2.E0 
YY=Y+DY1.'2.E0 
DL TX=XX-XPOS< I ) 

DLTY=YY-YPOS(J) 

CAL L  INDEX< I,J,DL TX, DL TY,  KEXI T ) 

CALL  EFORCE(  I,  J,  XX,  YY,  DL  TX,  DL  TY,  EX,  EY,  ET) 

DX2=EX*TDELT 
DY2=EY*TDELT 
XX=X+DX2-'2.E0 
YY=Y*DY2.^3.E0 
DL TX=XX-XPOS( I ) 

DLTY=YY-YPOS(J) 

CAL L  INDEX< I , J, DL TX, DL TY, KEXI T ) 

CALL  EFORC.E<  I ,  J,  XX,  VV.  DL  TX,  DL  TY,  EX,  EY,  ET  ) 

DX3=EX*TDELT 

DY3=EYtTDELT 

XX=X+DX3 

YY=Y*DY3 

DL TX=XX-XPOS< I ) 

DLTY=YY-YPOS<J) 

CAL L  INDEX<  I,J,DL  TX,  DL  TY,  KEXI  T ) 
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CALL  EFORCE<  I  >  J.>  XX.  VV.  OL  fX.  DL  TY.  fX.  EY,ET> 

0X4=ES'*TDEL  T 
DY4''^EY*rOELr 

0Xi  KNT*3 )=< DSl  *2 .  ElU< DS2*DX3 >*0X4  )/t  EO 
DY<  KM  T*3  X  OYl  *2 .  E0t<  DY2WY3  >*0Y4  >/6  E0 
X=X*DXikNT*3) 

Y^YWY<KNT*3) 

DL TX=X-XPOS< I > 

OLTY=Y-YPOS(J> 

CAL  L  INOEX<  I  >  J,  DL  TX,  DL  TY  ..  KEXI T  > 

CAL L  EFORCE(  I ..  J,  X.  V'..  OL  TX..  DL  TY..  EX>  EY,  E T  ) 

DX<KNT*3>=EX*TDELT 

DY(KNT*3)^EY*TDELT 

KDBLE-3 

RETURN 

C 

C  PREDICTOR-CORRECTOR..  USING  THE  PRESENT  INTERVAL 
C 

100  XPRDCT=<  55.  EOFDX<  7 )-59 .  E0*OX<  6 )*37 .  EO.*DX<  5  E0tD.Y<  4  >  )  24  EO 
YPRDCT=<  55 .  E0*DY<  7  >-5S .  E0*DY<.  6) *3 7 .  E0*DY<  5 >-9 .  E0*DY<  4  >  >^'24  EO 
XX=S*XFRDC T 
YY=Y*YPRDCT 
DL  TX=.X.X-XPOS<  I ) 

DLTY=YY-YFOS(  J> 

CAL  L  INDEX(  I ..  J,  DL  TX..  DL  TY..  KEXI  T  > 

IFiKEXIT  GT.0)  RETURN 

CAL  L  EFORCEi  I ..  J..  XX..  YY..  DL  TX..  DL  TY .  EX..  BY..  E  T  ) 

DXl^EXkTDELT 

DYl-EYtTDELT 

XCRRCT=(9  E0.*DXi*l$.E0*DX<  7  )-5 .  E0iOX<  6  >*DX<  5  )  >■■  24  EO 
YCRRCT=(  9  E0tDYl*19 .  L0.tDY<  7  >-5 .  E0iOY<  6  >*0Y<5  )  >^^24  .  EO 
DX2=ABS(  XFRDC  T-.XCRRC  T  ) 

DY2-ABS( YFRDC T- YCRRC T ) 

DL  T=ANAXi<DX2..DY2y 
C 

C  HALVE  THE  INTERVAL  IF  OLT  EXCEEDS  DLTA 
C 

IF<  OLT.  LT.  DLTA)  GO  TO  llO 
C 

C  PARABOLIC  INTERPOLATION  COEFFICIENTS  FOR  THE  HALF  INTERVAL  VALUES 
C 

KDBLE=3 

TDELT=TOELT.2.E0 

AA= (  D.\'<  7  )-2.  ElUO.W  6*  >*0X(  5  >  '•  C  S .  EOt  TDEL  Tt  TDEL  T  > 

DX(  7  .>-0X<  5  >  4 .  EO*  TDEL  T  > 

AAA^^L  D.X(  6 >-2 .  E0*D.X<  5  >*DX<  4  )  .>■■■  <  S .  EO*  TDEL  T* TDEL  T  ) 

BBB=<  DX(  S  >-DX<  4  >  .)  •  <  4  EO*  TDEL  T  ) 

DX<  1  >==DX(  4  >y'2.E0 
0H(  3  >=DX<  5  >.--2 .  EO 
DX(5>=D.^<€>.'2.E0 

DX(  2  >=(  TDEL  T*<  AAA*  TDEL  T-BBB  >*DX<  3  >  ).--2  EO 
DX(  4  .'=(  TDEL  T*<  AA*  TDEL  T-BB  >*D.X<  5  >  .)■ .? .  EO 
DX<  6 .)»(  TDEL  T*<  AA*  TDEL  T*BB  .)+0X(  5  )  .).•  .? .  EO 
DX<7>=DX(7>.  2  .E0 

AA^(OY<  7  >-2 .  EO*OY<  6*  >*DY<  5  >  .)■•'<  S .  EO* TDEL  T*TDEL  T  > 

BB^(  0Y(  7  .>-0Y<  5  )  >.-  (  4 .  £0*  TDEL  T  > 
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DY<  6  >-2 .  EeWY<5)*0Y<  4  )  )  •  -;  8 .  EetTDEL  TtTOEL  T  ) 

BBB=<DY(  E )~0Y(  4  )  4 .  E0*  TDEL  T  > 

0Y<1  >=DY<4)-'2.E^. 

0Y<J)=DY<5.>-2.Ed 
DY<5>=DY(6>  2.E0 

D Y(  2 >=(  TDEL  f./'C MB* TDEL  T-BBB .)^-DY<  3 >  >-'2 .  ED 
DY<  4  TDEL  T*< BB* TDEL  T-BB  >+DY<  5  >  >-'2 .  ED 

DY<E)=(  TDEL  T*<  BB*TDELr+BB)-f-DY<  5  )  )y'2 .  ED 
DY(7)^DV<7)y2.ED 
GO  TO  IDD 
C 

C  TEHTBTIUELY  DOUBLE  THE  INTERVBL..  BUT  ONLY  IF  3  STEPS  HBUE  BEEN 

C  TBKEN  SINCE  THE  LBST  DOUBLING  OR  HBLUING,  BND  ONLY  IF  DLT 

C  IS  LESS  THBN  ONE  HBLF  OF  DLTB 
C 

IID  IF(KDBLE.GT.D)  GO  TO  12D 
DL T=DL T*2.D 

IF(  DLT.  GT.  DLTB)  GO  TO  128 

XFRDT=(55.  ED*DX<  7 )-59 .  ED*DX<  5  )+37 .  EO*DX( 3  >-9 .  ED*DX<  1  >>.'12.  ED 

YFRDT=(  55.  ED*DY(  7  )-59 .  ED*DY<  5 .)+ ED*DY<  3  >-9 .  ED*DY<  1  >  )^'l  2 .  ED 

XX-X^-XPRDT 

YY=Y-hYPRDT 

DL TX=XX-XFOS< I > 

DLTY=YY-YFOS(J) 

CBL  L  INDEX-:  I ..  J..  DL  TX..  DL  TY..  KEXI T ) 

IF(KEKIT.GT.O)  GO  TO  120 

CBLL  EFORCEC  I,  J..  XX..  YY..  DL  TX.-  DL  TY..  EX..  EY..  ET  ) 

DX1=EX*TDELT 

DY1=EY*TDELT 

XCRRT=<9.E0*DX1+19.  EO*DX<  7 )-5 .  EO*D:>i<  5 )-hDX<  3 >  )-12 .  ED 
YCRRT=( 9 .  E0*DY1  *19.  ED*DY<  7 )-5 .  EO*DY<  5  >*DY<  3  >  )--12 .  ED 
DX2=BBS< KPRDT-XCRR T ) 

DY2=BBS< YFRDT-YCRRT ) 

DL  T=BNBX1<DX2..DY2) 

IFCOLT.GT.DLTB)  GO  TO  12D 
C 

C  DOUBLE  INTERVBL  IS  OK)  SO  DO  IT 
C 

DX(7)=DX<7)*2.ED 
DX(S)=D.Y<5)*2.ED 
DX<  5. )=D.Y< 3. >* 2.  ED 
DX<4.>=DX<  1  )*2.ED 
DY(7)=DY(7.y*2.ED 
DY<  6.>=DY<5)*2  .ED 
DY(5)=DY<3>*2.ED 
DY(  4)=DY<  1  )*2.ED 

X=X*(  19.  ED*XPRDT*251  .  ED*XCRRT  )■■  27D .  ED 
Y=Y+< 19.ED*YPRDT+251 . EDtYCRRT )y27D . ED 
TDEL  T=2  .ED*TDELT 
K0BLE=3 
GO  TO  13D 
C 

C  NO  DOUBLING  OCCURRED.  COMPUTE  NEN  X  &  Y.  SHIFT  INCREMENTS  LEFT 
C  S.  UPDBTE  THE  MOST  RECENT  INCREMENT. 

C 

120  X^X+<  19.ED*XPRDCT*251 .  ED*:-<CRRCT )y-27D .  ED 
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Y=Y+<  19 .  E^1:YFRDCT■^251 .  EQtYCRRCT >^270 .  E0 
KDBLE=KDBLE-1 
13d  DO  140  K=1..B 
D1«K)=0S<K*1  > 

140  DY(K>=DY(K-H  ) 

DL  T}<=X-XPOS(  I .) 

DL rY=Y-YFOS<  J  > 

COL  L  IHDEX<  I ..  J,  DL  TX..  DL  TY,  KEXI T  ) 

IF(KEXIT.GT.O)  RETURN 

COLL  EFORCEd:  J..  X..  V..  DL  TX,  DL  TY..  EX..  EY..ET> 

ETT=E TtFSINRN.  DS  TNRN 

IF<ETT.LT.2.E4.)  KEXIT=1 

DX<7)=EX*TDELT 

DY(  7  .)=EY.tTDEL  T 

RETURN 

END 


142 


SUBROUTINE  INTGRLiDS,  OY..  El .  E5.  PI,  ALPHA) 

C 

C  USES  THE  KENNEDY  IONIZATION  COEFFICIENT  <AT  300  DEG  K),  SCALED  TO 

C  THE  TEMPERATURE  T  USIHG  CROUELL  A  SZE'S  EMPIRICAL  FIT  TO  BARAFF'S 

C  CURUES,  TO  EUALUATE  THE  IONIZATION  INTEGRAL  BY  GAUSSIAN  QUADRATURE 
C 

COMMON.'ARRAYSy'PSI(  31 , 31 ),  EDENS(  31 , 31  >,  HOENS< 31 , 31 ),  B< 31 , 31 ), 

&D<  31 ,31),  E( 31 , 31  ),  F(  31,31),  H< 31 , 31 ),  Q< 31,31),  QAREA<31 , 31 ), 

&DEL  TA(  31,31),  ESUBX<  31 ,31),  ESUBY<  31 ,31),  IDENT< 31,31). 

COMMON.  COEFF^'HSTH<  31 , 31  ),  HUES T( 31 , 31  ),  HCNTR< 31 , 31 ),  HEAS T<31,31), 
&HNRTH(31,31  ),NDLT(32),  YDLT(  32  ),  KPOS<  31 ),  YP0S<31  ) 

COMMON.  REAL^XUIDTH, YDEPTH, BRRIER, EGAP, TMPTR, ACCPTR, UBL TIN, UOL T, 

A  TRNSIC,  QSS,  SO,  YO,  RAD,  SDEL  TA,  WEL  TA 
COMMON.' INTGR-  IMAS,  JMAS,  ISUDTH,  JYDPTH 
COMNON.'CNTRL.  I TMAS,  I TRMAS,  CONURG,  SIDL  T 
COMMON.  NRNLZE.^ONSNRH, PSINRM, DSTNRM, BL TZMN 
C 

DS^^SQR  T(  DStOX*DY*DY  )$0S  TNRM 
DZ=DS*A1'2. 

AA=<E5-E1 )'DS 
BB=(E5+E1  )--2. 

E2=( -AAUDZ-t-BB  .HPSINRM-'DSTNRM 

E3-BB*PSINRN- DS TNRM 

E4=( AAUDZ+BB )*PSINRM'DS TNRM 

AA=1. 4  FEB 

BB=1. SF5E6 

ET:=E2 

ALPHA=AA.  EXF<  BB-  E2  ) 

KEY=1 
GO  TO  130 

100  PI=FI+ALPHA*HUDS-2. 

ET=E3 

ALFHA=AA.  EXP< BB  E3 ) 

KEY=2 
GO  TO  130 

110  PI=PH-ALPHA*H2*DS/2. 

ET=E4 

ALFHA=AA  -EXP<  BB-  E4  ) 

KEY:^3 
GO  TO  130 

120  FI-PH-ALPHA*Hl*DSy2. 

RETURN 

130  IF( TMPTR. EQ. 300. )  GO  T0< lOO, 110, 120),KEY 
BLTZ=.025S5 

CALL  CRUSZE<ET,BLTZ,ALPH) 

RATIO=ALPHA.'ALPH 
BL  TZ=BL  TZMN 

CAL  L  CRNSZE'i  E T,  BL  TZ,  ALPH  ) 

ALPHA=RATIO*ALFH 
GO  T0<  1 00, 110,1 20  ),  KEY 
ENTRY  INTGRl 
A1=:.7745966692414S3 
HI  = .  555555555555556 
H2^ . SSSSS8SSS8SS889 
RETURN 
END 
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SUBROUTINE  CRUSZEiET,  BL  TZ,  BLPH > 

C 

C  CBLCULBTES  THE  TOHNSENO  COEFFICIENT  FOR  ELECTRONS  USING  CROUELL  t, 

C  SZE'S  EMPIRICAL  FIT  FOR  BPRPFF'S  CURUES.  (USES  UNNORHPLIZED 

C  UHRIHBLES.  .) 

C 

COMMON.  HRRHYS  'PS I <  31 ..  31  EDENS<  31 , 31 ),  HOENS(  31 , 31  >.  B(  31 , 31  >, 

&D<  31 ..  31  >.  E<  31 ..  31  >,  F<  31 , 31 H<  31 ..  31  .h  Q<  31 , 31  >,  QPREP<  31 , 31 ), 

&DEL  TP(  31 ..  31  >..  ESUBSk  31  .•  31  ESUBY(  31 ..  31 ),  IDENT( 31 , 31  > 

COMMON,  COEFF.  NS TH<  31 ..  31  >,  HUES T( 31 , 31  ).>  HCNTR( 31 , 31 ),  HEAST< 31 , 31 ), 
&HHRTH(  31 , 31  >..  XOL  T<  32  >..  VOL  T<  32  .).•  XPOS(  31  >,  YPOS<  31  > 

COMMON,  REHL  XU IDTH:  YDEFTH, BRRIER, EGHP, TMPTR, PCCPTR, UBL TIN, UOL T, 

& TRNSIC:  QSS, XO, YO,  RHO, XDEL TH, YDEL TP 
COMMON,  INTER  IMPX,  JMPX,  IXUDTH..  JYOPTH 
COMNON.'NRMLZE-  DNSNRM,  PSINRM,  DSTNRM,  BL  TZMN 
COMMON,  CNTRL  I TMPX, ITRMPX, CONURG, SIDL T 
C 

EXPNTi  R2,  R1 ,  X2..  XI  )=<  1 1 . 5tR2-l .  1 7*R1  *3.  SE-4 
&<4€  *R2-11.  S*R1-H  .  75E-2.>*Xl-(757.  *R2-75.  5*R1*1.S2.> 

TPNHi  X  )=(  EXF(  X  >-EXP<  -X  >  >■  <  EXP(  X  >*EXP<  -X  >  > 

XX=3.  15E-2.yBLTZ 
EF=  E .  3E-2i:  TPNH<  XX  .> 

ELMB0P=76  OE-StEP,  6. 3E-2 
EI=1. 5.tEGPP 
R1=EP  El 

I  tP  1 

x‘i=EI.  (ETtELMBDP) 

X2=X1*X1 

XN=EXFNT<  R2..  R1 ..  X2..  XI  > 

IF< XN  LT  -SO.  )  XN=-SO . 

PL  PH=EXP<  XN  ),  EL  MBDP 
RETURN 
END 
C 
C 
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c 

c 

c 


SUBROUTINE  OUTPUT 


COMMON-  PRRNYSy'PSK  31 .31.K  EDENS<  31 ..  31  ),  HOENS<  31 ,31),  B<  31 , 31  >, 

«0(  31 , 31  >,  E(  31 , 31 ),  F<  31 , 31  >,  H<  31 , 31  >,  Q<  31,31),  QRRER<  31 , 31 ), 
t.OEL  TR<  31 , 31  ),  ESUBS(  31 , 31 ),  ESUBY<  31 , 31 ),  I0ENT<3t ,  31 ) 

COMMON^  COEFF.^NSTH<  31 , 31  ),  HUEST<  31 , 31  ),  HCNTR<  31 , 31  ),  HEAST< 31 , 31 ), 
iHNRTm  31 , 31 ),  XDL  T<  32 ),  YDL  T(  32 ),  ><POS( 31 ),  YPOS< 31 ) 

COMMON-  RENL  'SUIDTH, YOEPTH, BRRIER, EGRP, TMPTR, RCCPTR, UBL TIN, UOL T, 

S,  TRNSIC,  OSS,  SO,  YO,  ROD,  SDEL  TO,  YDEL  TO 
COMMON.  INTGR-'INOS,  JMOS,  IXNDTH,  JYDPTH 
COMMON.  CNTRL  ITMOS, I TRMOS, CONURG, SIDL T 
COMMON.  NRMLZE  ONSNRM, PSINRM, DSTNRH, BL TZMN 
C 

DIMENSION  SCR TCH<  31 ),  X<  31 ),  Y<  31 ) 

C 

DO  SO  I=1,IM0S 
80  S(  I  >==SPOS<  I  >*DSTNRM*1 . 0E4 
DO  90  J=1,JM0S 
90  V'<  J  YPOS(  J  HDS  TNRMt  1  0E4 
NRITE(6, 1000) 

1000  FORMOK  IH1,60S,  ■■■,32S,  '.Si  I  ),  1^1 , 1M0X‘  ) 

NRITE<6,  1010)kX<  I  1^1 ,  IMOX) 

1 01 0  FORMO T< 32S, 1F10E10.2 ) 

NRITE(6, 1020) 

1020  FORMOK  1H0,5X,  'J',9X,  •Y<J)',15X,  ’FSK  I ,  J  ),  1*1 ,  IMOX' ,  ) 

DO  110  JJ=1,JN0X 
J=JH0X*1-JJ 
DO  100  1*1, IMOX 
1 00  SCR TCH< I )=FSI< I , J >tPSINRN 

NR  I  TE<  6 , 1 030  >  J ,  V'<  J  > ..  <  SCf?  TCH<  I),  1=1,10) 

NRITE<6, 1040>(SCRTCH<  I ),  1=1 1 ,  IMOX) 

1030  FORNOTT  IX,  '  ' , 17, 5X,  IPEIO  2,  lOX,  1P10E10.2) 

110  CONTINUE 

1 040  FORMO T( 32X, IPlOEl 0  2 ) 

NRITE<6, 1000> 

NRI  TE(€,  1010><X<  I  ),  1=1 ,  IMOX) 

NRITE(6, 1060) 

1060  FORMOK  1H0,5S,  'J'.SX,  •Y(J)',15X,  '  HDENS<  I ,  J  ),  1=1 ,  IMOX' ,-■'.' ) 

DO  150  JJ=1,JM0X 
J=JM0.K*1-JJ 
DO  140  1=1, IMOX 

1 40  SCR TCH< 1 )=HDENS< I , J )*DNSNRM 

NR  ITE(6,1 030  )  J,  V'<  J  ) ,  <  SCR  TCHi  I  ),  1=1, 10  ) 

NRITE<6,  1040)<  SCRTCH<  I  ),  1=11,  IMOX) 

150  CONTINUE 

NRITE<6, 1000) 

NR  I  rE<  6, 1010  )<  .X<  I )  ,1=1 ,  IMOX  ) 

NRITE(€,11O0) 

1100  FORMOK  1H0,5X,  'J',9X,  'Y<J)',l5X,  'EDENS<  I,J),  1=1,  IMOX' ,-'^) 

DO  154  JJ=1,JN0X 
J=JMOX-H-JJ 
DO  152  1=1, IMOX 

1 52  SCR TCH< I )=EDENS< I , J )*DNSNRN 

NRI  TE<  6, 1 030  )J,  Y<  J  ),  <  SCR  TCH<  I ),  1=1,1 0  ) 


«/?I TE<  6: 1 040 X SCRTCH<  IHOX) 

154  CONTI HUE 

NRITE(€..  1000) 

NRI  TE<6, 1010  )<X<  I .),  /»! ,  IMOX> 

NRITE(E,  lOrO) 

1070  FORMOT<1HO,5X,  •Y(J)>,15X>  'ESUBX^  I,  J>,  1=1 ,  INAX^ ,  ) 

DO  170  JJ=1,JHAX 
J=JNAX*1-JJ 
DO  160  I=1..INAX 

1 60  SCR  TCH<  I  .)=ESUBX<  I ..  J  >*PSINRI1.'0S  TNRH 

NRITE(  6: 1030)  J,  Y<J),(SCRTCH<  I  1=1,10) 

NRirE<6,  104O)(SCRTCH<  I ),  1=11,  IMAX) 

170  CONTINUE 

NRITE<6,  1000) 

UR  I TE< 6 ,101 0 X  X< I  ), 1=1, 1 MAX ) 

URITE(  6,  lOSO  ) 

1080  F0RNAT(1H0,5X,  'J'.SX,  •Y<J)',15X,  'ESUBYf  I,J),  1=1,  IHAX' ,^y') 

DO  190  JJ=1,JMAX 
J=JNAX*1-JJ 
DO  ISO  1=1, I MAX 

1  SO  SCR  TCH(  I  )=ESUB  Y<  I ,  J  )*PSINRM,  DS  TNRM 

URITEk  6, 1 030  )  J,  Y<  J ),  <  SCRTCH<  I ),  1=1,10) 

URITE<6, 104O)<SCRTCH<  I ),  1=11,  IHAX) 

190  CONTINUE 

URITE(6, 1000) 

URITE(6,  lOlOXXd),  1=1,  IHAX) 

URITE(6, 1090) 

1090  FORHAT<  1H0,5X,  'J’,9X,  'Y<J)',15X,  'ETOTAH  I,J),  1=1,  IHAX' ,yy) 
DO  310  JJ=1,JNAX 
J=JMAX-H  -JJ 
DO  300  1=1, IHAX 

300  SCRTCH<  I  )=SQRT<ESUBX<  I,  J)*ESUBX<  I,  J)*ESUBY<  I,  J)*ESUBY< I,J))$ 
S,FSINRH-  DSTNRH 

UR  I  TE(  6, 1 030  )  J,  Y<  J  ),  <  SCRTCH<  I  >,1=1,10) 

UiinK  6, 1 049  >393^704:  I  ),  1=1 1 ,  IHVX  ) 

310  CONTINUE 
RETURN 
END 
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MISSION 

of 

Rome  Air  Development  Center 

IIADC  ptoMA  and  zxzaU&&  xzAzaxch,  dzvzJLopmznt,  tzAt  and 
izZzctzd  ac^aiA-ction  pxogKom  in  AupponX  Command,  Contfioi 
CorrminizationA  and  IntztUgzncz  (C^I)  aztivitizA,  Tzchnicat 
and  znginzz/Ung  Auppont  uxUJUn  oazoa  tzchnicai  competence 
iA  pnovidzd  to  ESP  Pnognam  O^ficzA  (POa)  and  othzA.  ESP 
zZzmzn^.  The  pnincipat  tzchnicat  miAAion  anzoA  anz 
communicationA,  ztzctxomagnztic  guidancz  and  contnot,  aua- 
vziltancz  0^  gnound  and  aznoApacz  ob/zctA,  intztCigzncz  data 
cotCzjztion  and  handling,  inionmation  AyAtzm  tzchnology, 
ionoAphzAic  propagation,  Aotid  Atatz  AciznczA,  micAowavz 
phyAicA  and  zlzctronic  rzliability,  maintainability  and 
compatibility. 


PrlnHA  hy 

UiiitvA  Sl«H»  Air  F«rc« 
H«n»co«  AFB,  Matt.  01731 


